Select Code to Download

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

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