Давайте разберёмся, как же решить проблему утилизации ненужных данных.

Наименее громоздким мне представляется следующий объект для исследований:

01: #!/usr/bin/perl -w

02:

03: # ОСТОРОЖНО! УТЕЧКА ПАМЯТИ!

04:

05: sub create_ring {

06:     my ($length)=@_;

07:     my @ring=({'value' => 0})x$length;

08:     for (my $i=0; $i<$length; $i++) {

09:         $ring[$i]{'next_ref'}=$ring[($i+1)%$length];

10:     }

11:     return @ring;

12: }

13:

14: while (1) { my @ring=create_ring(10) }

Процедура create_ring создаёт и возвращает массив хэшей, каждый из которых имеет два ключа. Под именем «value» хранится некая величина, под именем «next_ref» – ссылка на следующий элемент массива. Последний элемент несёт ссылку на первый элемент (номер ноль), зацикливая конструкцию.

Вызывая её в бесконечном цикле и следя за процессами в системе, легко убедиться, что в приведённой программе есть утечка памяти. Элементы списка, создаваемого create_ring, не удаляются по той же причине, что и $a и $b из первого примера: когда выполнение блока доходит до конца, остаются неудалённые ссылки на элементы списка (как вы помните, эти ссылки содержатся в хэшах, составляющих список, под именами «next_ref»).

Ситуация не изменится даже в том случае, если чуть изменить наш код (привожу только важные и изменённые строки):

...

03: # ОСТОРОЖНО! УТЕЧКА ПАМЯТИ!

...

11:     return $ring[0];

...

14: while (1) { my $ring=create_ring(10) }

Не поможет и такое изменение:

...

03: # ОСТОРОЖНО! УТЕЧКА ПАМЯТИ!