Select Code to Download

# from your add_words() sub
...
   $words{"$category-$word"} += $words_in_file{$word};

sub show_classification{
    my ( $wantedCategory ) = @_;
...
        print "$word\n" if $category eq $wantedCategory;
    }
}