Select Code to Download

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

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