$ perl -MScalar::Util=weaken -E '$a={}; weaken($b=$a);$a=0;say $b' $ perl -MScalar::Util=weaken -E '$a=sub{};weaken($b=$a);$a=0;say $b' CODE(0x5964f33f920)