my $cnt = 0;
for ( 1 .. 40)
{
   $cnt++;
   my $q$cnt = param("q$cnt");
}