my @allquestions;
if ($type =~ m/q/i) {    # ** CHECKS FOR QUESTION LINE & PRINTS QUESTION
   print "<B>$value</B><BR>";
   @allquestions = (@allquestions, $value);
}