foreach my $number ( 1 .. 25 )
  {
  my $value = param( "q$number");
  print "q$number: $value\n";
  # or, without $value
  # printf "q%d: %s\n", $number, param( "q$number" );
  }

##</code><code>##

my @array = ( undef, map { scalar param("q$_") } 1 .. 25 );