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

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

##</code><code>##

$ perl -MO=Deparse -e'for (a(); b(); c()) { }'
for (a(); b(); c()) {
    ();
}
-e syntax OK

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