my @all = map {[ $arr1[$_], $arr2[$_], $arr3[$_] ]} (0..@arr-1);