my @formnames = qw(username ...);
my %data = map {
  $_ => filter(param($_))
} @formnames;