Select Code to Download

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

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