my $OB = bless { piggy => shared_clone([]) };
my $T = async { };

say threads::shared::_refcnt($OB->{piggy});
$T->join;
say threads::shared::_refcnt($OB->{piggy});