my @sorted_keys = sort{ $unique_descriptive{$a}{count} <=> $unique_des
+criptive{$b}{count} 
                                                        or
                                                     $a <=> $b
                      }keys %unique_descriptive;