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

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

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

##</code><code>##

$ 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