$ perl -MO=Deparse -e'foreach (@a) { }'
foreach $_ (@a) {
    ();
}
-e syntax OK

$ perl -MO=Deparse -e'for (@a) { }'
foreach $_ (@a) {
    ();
}
-e syntax OK