You have proven that tie doesn't suit here. =)

I hope this code is only a sample for demonstration and not meant for production.

IIRC do Perl variables have flags telling if they are blessed or tied and slots holding the bound class-names. (there is also untie, but no unbless)

You might wanna read perlguts for details, I also recommend the (old) Panther book for internals.