#! /usr/bin/perl -w

use strict;


my @arraytest = ("1111");
my $variable = "test";

print "@array$variable";

...
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};
...

my %hash = (elemente => [...die elemente wie im Array...]);
eingabe_formular_anzeigen (\%hash);
...
sub eingabe_formular_anzeigen  
{
       my $hashref = shift;          
       my @fields;
       foreach my $f (@{$hashref->{elemente}})
         {
         my $bez = $f->{bez};
...  

...
my %element;
my $element{liste} =
(
    { art => "textfield", name => "nachname",
      bez  => "Nachname:",   size => 20},
)
...
 eingabe_formular_anzeigen (\%element);
...
sub eingabe_formular_anzeigen   
{
my $element_liste_ref = shift;          
        my @fields;
        foreach my $f (@{$element_liste_ref->{liste}})
          {
          my $bez = $f->{bez};
...
          }
...

  foreach my $f (@{$element_liste_ref->{liste}})

my $element{liste} =
(
   { art => "textfield", name => "nachname",
     bez  => "Nachname:",   size => 20},
)