Select Code to Download

my %IDs;

...
for my $id (sort keys %IDs) {
    print "$id: ", join(', ', @{$IDs{$id}}), "\n";
}