diff --git a/hooks/subjects.pl b/hooks/subjects.pl
index 19eb80d..265aa0a 100755
--- a/hooks/subjects.pl
+++ b/hooks/subjects.pl
@@ -144,7 +144,7 @@ sub tag_project
 	# Generate token for VCS submission
 	my $dom = XML::LibXML->load_xml(string => (\$content));
 	my $mod = 0;
-	for $vcs ($dom->documentElement()->getElementsByTagName("vcs"))
+	for my $vcs ($dom->documentElement()->getElementsByTagName("vcs"))
 	{
 	    if (! $vcs->hasAttribute("token"))
 	    {