use Scalar::Util 'weaken';
# ...
$self->{next} = (\$self == \$next) ? weaken(\$self) : \$next;