Help for this page
push @$zip, map {shift @$_} ($array1, $array2) while @$array1;
push @$array, [map {shift @$_} ($array1, $array2)] while @$array1;