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