Are you sure "p", "po", "pogy" etc. are not on the list, too? If you are interested just in the words contained in other words, just declare the %found outside of the outermost loop and print only $subword.