in reply to Internally compressing Perl data

Devel::Pointer::PP or if your perl isn't new enough, Devel::Pointer.

In Section Seekers of Perl Wisdom