use List::Util qw( max );
my @two_dim = map { [ $array1[$_], $array2[$_] ] }
                  0 .. max( $#array1, $#array2 );