print "guess=$guess=\n";
    print "correct[$i]=$correct[$i]=\n";
 	if ($guess eq $correct[$i]) { # if guess is correct, reply
		print "You Rock!\n";
		$i++;