...
eingabe_formular_anzeigen (\@element_liste);
...
sub eingabe_formular_anzeigen   
{
my $element_liste_ref = shift;          
        my @fields;
        foreach my $f (@{$element_liste_ref})
          {
          my $bez = $f->{bez};
...