I would suggest you take a look at Data::DRef. This is a great, yet hardly-known about module.

I will have to write up a review of it when I have sometime.