zip(@a1, @a2, @a3)

##</code><code>##

&zip(\@a1, \@a2, \@a3)

##</code><code>##

&zip map $hoa->{"obj$_"}, 1..keys(%$hoa)