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);