Well, Perl doesn't use Perl's data structures for working with the symbol table, it uses perl's. It doesn't convert things like $foo = 1 into ${ $main::{foo} } = 1, because that'd be too damn slow. So I'm afraid you can't really do what you're trying to do, unless you tie() EVERY variable you make into a special monitoring class.

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;