for $i (@{$self->{beispiel}}) { print "$i\n"; }