Select Code to Download

    my $sorter = \&my_sorter;
    foreach my $key (sort { $sorter->(\%hash, $a, $b) } keys %hash) {
...
        my ($hashref, $a, $b) = @_;
        return $hashref->{$a} cmp $hashref->{$b};
    }