Ref Countだっけ？

PerlがリファレンスカウントGCという話だけど、それは確か正確ではなくて、ブロックから抜けるときに無条件で実行されるのがリファレンスカウントGCだという話。まともかどうかは別として、一応のGCも持ってたような。どこで読んだんだっけかなあ。
ということで実験してみたが、途中で止まったようわあん・・・

for(my $i = 0; ; $i++){
        my $a = [0];
        my $b = [0];
        $a->[0] = $b;
        $b->[0] = $a;
        if($i % 10000 == 0){
                print $i, "\n";
        }
}

適当に実行

...
10440000
10450000
10460000
10470000
10480000
10490000
10500000
10510000
10520000
10530000
10540000
10550000
強制終了