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

##</code><code>##

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