sub hashValueDescendingNum {
 # sort hash by key length in descending order
 length($a) <=> length($b)
}