for $x (0..4) {
  for $y (0..4) {
   print $temp_array[$y][$x], "\t";
  }
  print "\n";
 }