my %mapping = (
     'nachname' => 'NachnameInDB',
     'vorname'   => 'VornameInDB',
     'zimmerbett' => 'ZbInDB',);

push(@fields,td (escapeHTML ($bez)),
                           td ($f->{art} (-name => $f->{name}, 
                   -size => $f->{size}, 
                   -value => $hashref->{$mapping{$f->{name}}})));