circular.pl

use strict;
use warnings;

sub circular_ref {
    my $left = {
    };
    my $right = {
    };

    $left->{right} = $right;
    $right->{left} = $left;
}

warn 'running';
while (1) {
    circular_ref();
}