for my $key (sort { $ref->{$b} <=> $ref->{$a} } keys %$ref)