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