updating the word perl script to print out the counts of each letter in all of the matches found