To add to merlyn's diagnosis, there's a canonical way of dealing with this in perl. Declare a package, bless the culprit into it, and define a sub DESTROY {...} which breaks the circular references by hand.

 "It's brutal, but it works."

After Compline,
Zaxo