foreach my $f (@{$element_liste_ref})
        {
            my $art = $f->{art};
            my $bez = $f->{bez};
            $bez .= "*" if $f->{muss}; # Sternchen hinzufügen
            no strict 'refs';
            push (@zeile, Tr (
                        td (escapeHTML ($art)),
                        #td (textfield (-name => $f->{name}, 
                                       #-size => $f->{size}),
                        td($f->{art}(-name => $f->{name},
                              -size => $f->{siz},
                              ))
                                 
            ));
        }
        print table (@zeile);