for (1 .. 25) { my $value = param("q$_"); print "Value #$_ = $value\n"; }