Select Code to Download

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

  @incorrect = (@incorrect, $guess);

  push @incorrect, $guess ;

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