Select Code to Download

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

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

$ perl -Mstrict -Mwarnings -E '
my @a1 = (q{1 2 3}, q{4 5 6});
...
'
1 2 3 a b c
4 5 6 d e f