in reply to alphabetize a hash ignoring upper/lower cases
my @mips = sort { lc($a) cmp lc($b) } values %mips; [download]
my @imps = map { $_->[1] } sort { $a->[0] cmp $b->[0] } map { [ lc $_, $_ ] } values %mips; [download]