D:\Development>perl -MO=Deparse -e "use strict; my $x=1 for 1; print $x"
foreach $_ (1) {
    my $x = 1;
}
print $x;
-e syntax OK

D:\Development>perl -e "use strict; my $x=1 for 1; print $x"