Select Code to Download

push @$zip, map {shift @$_} ($array1, $array2) while @$array1;

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