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

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

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