my @element_liste =
(
{ art => textfield,
   name => "nachname",
     bez  => "Nachname:",   size => 30},
)

td ($f->{art} (-name => $f->{name},
                                -size => $f->{siz},
                                ))