$links_notebook{bestattungswunsch} = ( 1 => [
                       { art => "textfield", name => "muster 1",
                          bez  => "Friedhof:"},
                          ....
              ],
              2 => [ { art => "textfield",  name => "muster 15",
                          bez  => "Bestattungsunternehmen:",},
                          ....
              ],);
....
sub anzeige_link
{
   
   my $element_ref = shift;
   my $link = shift;
   my @fields;
   my @zeile;
   my $haupt = "0";
   foreach my $key(sort{$a <=> $b}keys %{$element_ref->{$link}}){
     # jetzt bist Du in den Hauptgruppen drin
     print "Hauptgruppe $key";
     foreach my $f (@{$element_ref->{$link}->{$key}}){
       # wie bisher...
     }
  }