use CGI; my $q = new CGI; my %q = $q->Vars; print $q{q1}, " ", $q{q25}; print $q{"q$_"},"\n" for 1..25;