my %element;
$element{liste} =
[
    { art => "textfield", name => "nachname",
      bez  => "Nachname:",   size => 20},
    { art => "textfield", name => "vorname",
      bez  => "Vorname:",     size => 20},
    { art => "popup_menu", name => "zimmerbett",
      bez  => "Zimmer/Bett:",},
    { art => "popup_menu", name => "anrede",
      bez  => "Anrede:",},
....
]

...
foreach my $f (@{$element_liste_ref->{liste}})
          {
...
          push(@fields,td (escapeHTML ($bez)),
                            td ($f->{art} (-name => $f->{name}, -size => $f->{size})));
...
          }
...
 print table (@zeile);