my @join = (@array1, @array2);
print @join;

##</code><code>##

print qq{$array1[$_] $array2[$_]\n} for (0 .. $#array1);

##</code><code>##

$ perl -Mstrict -Mwarnings -E '
my @a1 = (q{1 2 3}, q{4 5 6});
my @a2 = (q{a b c}, q{d e f});
say qq{$a1[$_] $a2[$_]} for (0 .. $#a1);
'
1 2 3 a b c
4 5 6 d e f