Assuming all the arrays have the same length...

print "$array1[$_], $array2[$_], $array3[$_]\n"
  for 0 .. $#array1;
[download]

See perldata for a description of $#array which I presume is the bit you were struggling with