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

##</code><code>##

   @allquestions = (@allquestions, $value);
# Should be ...
   push @allquestions, $value;