How about using a hash, something like this

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

my %data;

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