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

##</code><code>##

D:\Development>perl -MO=Deparse -e "my $x=1 if 0; my $y=1 if 1;"
'???';
my $y = 1;
-e syntax OK

##</code><code>##

use Data::Dump::Streamer;
use Data::Dumper;
my ($x,$y,$z);
print Dump($_,$x,$y,$z),"\n" for $x,$y,$z;
print Dumper($_,$x,$y,$z),"\n" for $x,$y,$z;
__END__
$VAR1 = undef;
alias_ref(\$VAR2,\$VAR1);
$VAR3 = undef;
$VAR4 = undef;

$VAR1 = undef;
$VAR2 = undef;
alias_ref(\$VAR3,\$VAR1);
$VAR4 = undef;

$VAR1 = undef;
$VAR2 = undef;
$VAR3 = undef;
alias_ref(\$VAR4,\$VAR1);

$VAR1 = undef;
$VAR2 = undef;
$VAR3 = undef;
$VAR4 = undef;

$VAR1 = undef;
$VAR2 = undef;
$VAR3 = undef;
$VAR4 = undef;

$VAR1 = undef;
$VAR2 = undef;
$VAR3 = undef;
$VAR4 = undef;