# der nächste maintainer, der evtl. kein deutsch kann, wird sich über
# englische bezeichner freuen
my %maildata;
for my $key qw/ male_or_female age ... /) {
    $maildata{$key} = maildatensaver($FORM{$key});
}