#variable initialization

@question = qw(1 2 3 4 5);
$wrong_count = 0;
.
.
.
#sample question

print "Question #1: Who is buried in Grant's tomb?\n\n";
print "A. Grant\n";
print	"B. Lincoln\n";
print	"C. Frank\n";
print	"D. None of the above.\n\n\n\n";
print "The answer is: ";
.
.
.
#checking for correct answer

if (lc ($reply) eq "a") {
	$answers[0] = "correct";	#creating @answers array
}	else {
		#the $incorrect variable doesn't figure into #the code in question here

	$answers[0] = "incorrect";

	#following line added to gather info as which        #answers are incorrect with @question array

	$question[0] = "no";
}
.
.
.
#incrementing $wrong_count

if ($question[0] eq "no") { 
	print "Your answer to question number one is incorrect.\n\n";
	$wrong_count++; }
if ($question[1] eq "no") { 
	print "Your answer to question number two is incorrect.\n\n";
	$wrong_count++; }
.
.
.
if ($wrong_count != 0) {
	print "Would you like to see the correct answers to the questions you missed?\n\n";
}
.
.
.
while ($wrong_count != 0)  {		

	if (lc $question[0] eq "no") {
		clear_the_screen();

	print "Question #1: Who is buried in Grant's tomb?\n\n";
	print "A. Grant\n";
	print	"B. Lincoln\n";
	print	"C. Frank\n";
	print	"D. None of the above.\n\n\n\n";
	print "The answer is: ";
	print "The answer is: a\n ";
	($wrong_count--);