Help for this page
sub hashValueDescendingNum { length($b) <=> length($a) || $count{$b} <=> $count{$a} }