Select Code to Download

my %top_words;
$top_words{chr(64+$_)x4} = $_ for (1..26); # fill hash with some word/
+number pairs
...
    print "$word\n";
    last if $counter++ == 20;
}