...
foreach my $f (@{$element_liste_ref->{liste}})
          {
...
          push(@fields,td (escapeHTML ($bez)),
                            td ($f->{art} (-name => $f->{name}, -size => $f->{size})));
...
          }
...
 print table (@zeile);