diff --git a/bin/pandoc_fixer.pl b/bin/pandoc_fixer.pl
index d53968f8caacea7f1e54eb74635cf35d51415b08..d8c631bb821f6f063b5d2491a5f5caea1d57990a 100755
--- a/bin/pandoc_fixer.pl
+++ b/bin/pandoc_fixer.pl
@@ -80,8 +80,8 @@ while(defined(my $line=<INPUT>)) {
     # }
 
     #### Changing headers
-    foreach($i in (4,3,2,1)) {
-	$j=$i+1;
+    foreach my $i (4,3,2,1) {
+	my($j)=$i+1;
 	$line =~ s|<h$i|<h$j|g;
 	$line =~ s|</h$i|</h$j|g;
     }