sub aussen {
    ...
    my $innen = sub {
        ...
    };

    # Aufruf von $innen:
    $innen->($arg1, $arg2, ...);
}