my @fields = qw/username age sex/; # ...

my %data;

for (@fields) {
  $data{$_} = filter(param($_));
}