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

Not quite. You've left out a couple of the essential steps of the Schwartzian Transform there. Maybe you meant:

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

-- Randal L. Schwartz, Perl hacker