Select Code to Download

$unique_descriptive{$num}{count}++;
   push @{$unique_descriptive{$num}{values}}, $num;

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