use Scalar::Util qw( weaken );
# ...
weaken( $some_ref );