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