my @all;
push(@all, [ $arr1[$_], $arr2[$_], $arr3[$_] ])
   foreach 0..$#arr1;

##</code><code>##

my @all;
$#all = $#arr1;
$all[$_] = [ $arr1[$_], $arr2[$_], $arr3[$_] ]
   foreach 0..$#arr1;