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