If that's what you want to do, and you don't mind scanning the cache periodically (otherwise weak references are probably the way to do) then use Devel::Peek to peek. The SvREFCNT function will get you the refcount for any perl variable.