if ($guess eq $correct[$i])

##</code><code>##

  @incorrect = (@incorrect, $guess);

##</code><code>##

  push @incorrect, $guess ;

##</code><code>##

  my $grade = 100 - length(my @incorrect) * 33.3;