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