@sorted = sort { $a->[2] <=> $b->[2] } <INPUT>;            
chomp (@sorted);

foreach (@sorted){
   print;
   print "\n";
}