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