my $sort_by_numeric_value = sub {
   my $hash = shift;
   sort {$hash->{$b} <=> $hash->{$a}} keys %$hash ;
};