cp-memory.pm

#
# Что произойдет с памятью в этом примере и почему? Как исправить положение?
#
while (1) {
    my $a = {};
    $a->{func} = sub {
        $a->{cnt}++;
    };
}
#     Здесь счётчик ссылок на $a сохраняется в контексте func, поэтому
#     память не будет очищаться. Выход:
# 
#     use Scalar::Util 'weaken';
#     my $a = {};
#     weaken $a;

#
# В данном примере, память естесствено утекает из-за перекрестных ссылок.
# Как правильно инициализировать перекрестные ссылки, чтобы память из-за
# них не утекала?
#
while (1) {
    my $a = { b => {} };
    $a->{b}{a} = $a;
}
#     А тут может проще undef $a->{b}{a} в конце цикла.