my %top_words;
$top_words{chr(64+$_)x4} = $_ for (1..26); # fill hash with some word/number pairs

my $counter = 1;
for my $word (sort {$top_words{$b} <=> $top_words{$a}} keys %top_words){
    print "$word\n";
    last if $counter++ == 20;
}