my $counter = 1;
       my @fields;
       foreach my $f (@{$element_liste_ref})
       {
           my $bez = $f->{bez};
           $bez .= "*" if $f->{muss}; # Sternchen hinzufügen
           push(@fields,td (escapeHTML ($bez)),
                             td (textfield (-name => $f->{name}, -size => $f->{size}))));
           if($counter % 3 == 0){
             push (@zeile, Tr (@fields));
             @fields = ();
             $counter = 0;
           }
           $counter++;
       }