Select Code to Download

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

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