# show the words of a classification sub show_classification { my ( $category ) = @_; #for each word in the matching category, print the word }