my $x;
$x = sub {
    # Do stuff.
    $x->();
    # Do more stuff
};