Select Code to Download

my (%count, @items, $other_stuff, $more_stuff);

for my $word (@words){
    my %count; # WRONG
    $count{$word}++;
}