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