my @lines;
while (<>) {
   chomp;
   push @lines, [ $_, split /\t/ ];
}

@lines = sort { $a->[9] <=> $b->[9] } @lines;

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

##</code><code>##

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