Select Code to Download

for my $key ( sort {length($b) <=> length($a)} keys %hash ) {
...
    print "$key => $value\n";
}

my %order = (Number => 1,
             EX     => 2);
...
    print "$key => $value\n";
}