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