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