my @q;
for (1..40) {
  $q[$_] = param("q$_");
}