...
          $guess=<STDIN>;  chomp $guess;
          next if $guesses{$guess}++;
          $right=0;
          ...