Assuming the same number of elements in each array you could:

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

If you instead wanted an array of paired rather than zipped elements you could:

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

Note however that both of these destroy the original arrays.

Non-destructive:

my @array = map { [ $array1->[$_], $array2->[$_] ] } 0..$#$array1;
[download]

or

my @array;
push @array, [ $array1->[$_], $array2->[$_] ] for 0..$#$array1;
[download]