To anyone who is trying to help me. David Black came through again! So that a new word is picked i simply put this code in until $word =~ /^[a-z]+$/; to this: until ($word =~ /^[a-z]+$/) &&! $wused{$word}++; Also, put these two lines: # Keep track of used words. my %wused = (); right before the "# Big play loop" line. I am trying to get sounds in the game when you win. So If anyone knows how to do that, I am all ears. ~~arthur ***** Want to unsubscribe from this list? ***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch