@lines = <INPUTFILE>;
  @lines =  sort { (split($a, /\t/))[2] <=> (split($b, /\t/))[2] } @lines;