use CGI qw(param);
for (param()) {
  $formdata{$_} = param($_);
}