Non-destructive:

my @array = map { [ $array1->[$_], $array2->[$_] ] } 0..$#$array1;
[download]

or

my @array;
push @array, [ $array1->[$_], $array2->[$_] ] for 0..$#$array1;
[download]