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