Ref $H: HASH(0x1c19d50)

Before STORE: %$H - %$H - Toy::Hash=HASH(0x1c199a4)	%h -Toy::Hash=HASH(0x1c199a4)
in Toy::Hash::STORE, tied(%$H) is Toy::Hash=HASH(0x1c199a4) Ref:(HASH(0x1c19d50))
in Toy::Hash::STORE, tied(%h) is Toy::Hash=HASH(0x1c199a4)
After  STORE: %$H - Toy::Hash=HASH(0x1c199a4)	%h -Toy::Hash=HASH(0x1c199a4)

Ref $H: HASH(0x1c19d50)

Before CLEAR: %$H - Toy::Hash=HASH(0x1c199a4)	%h -Toy::Hash=HASH(0x1c199a4)
in Toy::Hash::CLEAR, tied(%$H) is '' Ref:(HASH(0x1c19d50))
in Toy::Hash::CLEAR, tied(%h) is ''
After  CLEAR: %$H - Toy::Hash=HASH(0x1c199a4)	%h -Toy::Hash=HASH(0x1c199a4)

Ref $H: HASH(0x1c19d50)