sub check_answer()
   {
   my $subans = param("ANS");
   my $qnum = $qref->{number};
   ...
}