my($TN,$Question,$AnswerA,$AnswerB,$AnswerC,$AnswerD,$Correct)=...