sub test_if_letters_are_included { # Ask for input say 'Which letters would you like to use?:'; # Capture user input my $input = ; # create a character set of input letters my $chars = uc join '', $input =~ /[[:alpha:]]/g; @list_words = grep /[$chars]/, @list_words; }