I think merlyn's take on what you are trying to do is on target, but I suspect that the documentation for Class::Prototyped may be rough going for you if you are still finding your way around Perl objects. It is certainly rough going for me.

Your solution is pretty common, for what I've seen.