Note that a self-referential hash will leak. This code consumes several Gb after running for a few seconds:

while (1) {
    my %h;
    $h{a} = \%h;
}
[download]

You may need to use weaken() from Scalar::Util

Dave.