if ($guess eq $correct[$i]) { # if guess is correct, reply
		print "You Rock!\n";
		$i++;
		
	} else {	
		print "You Suck!\n";  # if incorrect, reply and save answer to be calculated 
		@incorrect = (@incorrect, $guess);

##</code><code>##

my @questions = ("Name the definitive rock band.." , "What is their best song?" , "What is their best album?");
my @correct = ("The Rolling Stones" , "Moonlight Mile" , "Sticky Fingers");
my $grade = 100 - length(my @incorrect) * 33.3;
my @incorrect;
my $i = 0;
my $guess;

##</code><code>##

} elsif ($i < 2) {
		$i = $i + 1;