use Devel::Peek;

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

    my $x;

    Dump($x);
    Dump($_recur,0);
}

foo();