Help for this page
for my $key ( sort {length($b) <=> length($a)} keys %hash ) { ... print "$key => $value\n"; }
my %order = (Number => 1, EX => 2); ... print "$key => $value\n"; }