$links_notebook{bestattungswunsch} =
[
  { art => "textfield", name => "muster 1",
      bez  => "Friedhof:", haupt => "1"},
....
  { art => "textfield",  name => "muster 15",
    bez  => "Bestattungsunternehmen:", haupt => "2"},
....
  { art => "textfield",  name => "muster 30",
    bez  => "Bestattungsunternehmen:", haupt => "3"},
....
]
....
sub anzeige_link
{
    
    my $element_ref = shift;
    my $link = shift;
    my @fields;
    my @zeile;
    my $haupt = "0";
    foreach my $f (@{$element_ref->{$link}})
          {
            if (defined $f->{haupt}){
               ....
                my $bez = $f->{bez};
                no strict 'refs';
                push(@fields,Tr (
                                   td (escapeHTML ($bez)),
                                   td ($f->{art} (-name => $f->{name},
                                                  -size => $f->{size},
                                                  -rows => $f->{rows},
                                                  -cols => $f->{cols},
                                                  -wrap => $f->{wrap},
                                                  -value => $f->{value},
                                                  -label => $f->{label},
                                                  -checked => $f->{checked})
                                      )
                                )
                      );
            }
            else
            {
            my $bez = $f->{bez};
            no strict 'refs';
            push(@fields,Tr (
....
          }
           push (@zeile, Tr (@fields));
           print table (@zeile);
        
}