use strict;
my $feld = "Hallo";
ref(my $feld = []);
print $feld;
^Z
ARRAY(0x22544c)