my $cnt = 0;
my %params;

for (1 .. 25)
{
  $cnt++;
  $params{"q$cnt"} = param("q$cnt");
}