ref(my $feld = [1]) eq 'ARRAY' and $feld = $feld->[0];
print $feld;
^Z
ARRAY(0x22544c)