You don't need to store these in separate variables to use them. Just access the right thing with param when you need it:

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" );
  }
[download]

If you really must import these, you could use an array (since you know they are ordered). You can fill in the element with index 0 with undef just to keep the numbers straight.

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

If you really wanted these things in a variable, you can use the CGI::import function to do it all at once. It ends up creating package variables though, so it's usually not a good idea.