Select Code to Download

for (sort by_seq([qw(five nine one seven three)]), keys %h) {

use strict;
#use diagnostics;
...
for (sort {$sorter->($a,$b)}, keys %h) {
    print "$_: $h{$_}\n";
};