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