in reply to Sort hash by key length and alphabetically
length($a) <=> length($b) || $a cmp $b [download]