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