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

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

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

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