Select Code to Download

my @lines;
while (<>) {
...
for (@lines) {
   print "$_->[0]\n";
}

print map "$_->[0]\n",
      sort { $a->[9] <=> $b->[9] }
      map [ $_, split /\t/ ],
      map { chomp( my $s = $_; ); $s }
      <>;