$ 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