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