Select Code to Download

my $index;
my @message;
...
   print "\t", $message[$_][1], "\t", 
}
  print "\t", $message[1], "\t", $message[0] ,"\n";