Select Code to Download

my @a1 = (
    ['a','b','c'],
...
my @merged = pairwise {[ @$a, @$b ]} @a1, @a2;

print Dumper \@merged;