push @$array, [map {shift @$_} ($array1, $array2)] while @$array1;