Don't use symbolic refs to access variables. There are few good uses of symbolic refs, and you don't appear to be using any of them.

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated