Probably making the (undeclared) loop $i a syntax error would be best but it looks like the ship has sailed.

Maybe so, but perlcritic spots it just fine:

$ perlcritic 1212245.pl 
Loop iterator is not lexical at line 5, column 1.  See page 108 of PBP
+.  (Severity: 5)
[download]