D:\temp>perl -MO=Deparse -e "my $b = 1 for 1 .. 10"
;
foreach $_ (1 .. 10) {
    my $b = 1;
}
-e syntax OK

D:\temp>