@params = $q->param();  # assuming using OO style of CGI.pm
foreach $val @params
{
  if ($val =~ /^question(.+)/)
  { $$1 = $q->param($val); }
}