Select Code to Download

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

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