$ perl -MO=Deparse -e 'for (0..2) { print }'
foreach $_ (0 .. 2) {
    print $_;
}
-e syntax OK