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

##</code><code>##

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