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