>perl -wMstrict -MO=Deparse,-p -le
"my @rocks = qw(a b c);
 ;;
 while (my ($i, $v) = each @rocks) {
   print qq{$i: '$v'};
   }
 ;;
 while ((my $i, my $v) = each @rocks) {
   print qq{$i: '$v'};
   }
"
BEGIN { $^W = 1; }
BEGIN { $/ = "\n"; $\ = "\n"; }
use strict 'refs';
(my(@rocks) = ('a', 'b', 'c'));
while ((my($i, $v) = each(@rocks))) {
    do {
        print("${i}: '${v}'")
    };
}
while ((my($i, $v) = each(@rocks))) {
    do {
        print("${i}: '${v}'")
    };
}
-e syntax OK