my @formnames = $query->param;
my %data = map {
  $_ => filter(param($_))
} @formnames;