sub foo {
    my $shared_with_all_recur = ...;

    my $_recur;
    $_recur = sub {
        ...
        $_recur->(...);
        ...
    };

    $_recur->(...);

    undef $_recur;
}