Select Code to Download

use Data::Dumper;
use List::MoreUtils qw(pairwise);
...
my @matrix = pairwise { [$a, $b] } @array1, @array2;

print Dumper(\@matrix), "\n";