perl -Mstrict -WE '
my @x = (1,2);
my @y = (3,4); 
for my $z ( @x ) {
    say $z;
    for my $z ( @y ) {
        say "  $z";
    }
    say $z;
}
'