use strict;
use warnings;
use Devel::Peek;

my $y;
Dump($y);

for my $x (undef, 10) {
    print "\$x = $x\n";
    Dump($x);
    Dump($_) for ( ($x, $y, undef) = 1..10), $x, $y;
}