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