while (my $guess = <STDIN>) {
   chomp($guess);
   ...