Select Code to Download

use strict;
use warnings;
...
for my $id (sort { $by_id{$b}[0] <=> $by_id{$a}[0] } keys %by_id) {
    print "ID: $id\tScore: $_\n" for @{ $by_id{$id} };
}