We would like to see the pertinent code. I imagine it looks something like:

use strict;
use warnings;

# Create a test dictionary. PM sample code only
open outFile, "< dict.txt";
print outFile "apple\norange\nonion\n";
close outFile;

# Read the dictionary
... # Code that causes grief

# Play the game
my $more;
do
  {
  ... # more code that causes grief  
  print "Guess another? ";
  $more = <>;
  }
while ($more =~ /^y(es)?\b/i);
[download]