% perl -MDevel::Peek -e 'Dump({}), Dump(bless({}, "Pkg")); ' SV = RV(0x807d01c) at 0x8057b38 REFCNT = 1 FLAGS = (TEMP,ROK) RV = 0x805716c SV = PVHV(0x805c720) at 0x805716c REFCNT = 2 FLAGS = (SHAREKEYS) IV = 0 NV = 0 [... needless detail omitted ...] SV = RV(0x807d01c) at 0x80572d4 REFCNT = 1 FLAGS = (TEMP,ROK) RV = 0x805716c SV = PVHV(0x805c720) at 0x805716c REFCNT = 2 FLAGS = (OBJECT,SHAREKEYS) IV = 0 NV = 0 STASH = 0x8057238 "Pkg" [... needless detail omitted ...]