Select Code to Download

  foreach $i ( 0 .. $#temp ) { 
    $data_line = $temp[$i]; 
...
    @data = split /\s+/, $data_line; 
    $data[$i] = split /\s+/, $data_line; 
  }