foreach my $n ($query->param) {   $param{$n} = $query->param($n);   }