open FH, "<", $filename;
my @record = sort { $b->[2] cmp $a->[2] } map { [ chomp; split ] } <FH>;
close FH;