@{$ref} = (); # so???
undef(@{$ref}); # so???