my %hash : shared = (); #### $hash{foo} = {}; #### $hash{foo} = shared_clone({}); #### my %tmp : shared = (); $hash{foo} = \%tmp;
## $hash{foo} = {}; ##
## $hash{foo} = shared_clone({}); ##
## my %tmp : shared = (); $hash{foo} = \%tmp;