{
    my $shared_data;
    my $inner_sub;

    sub outer_sub {
        ...
        ... $inner_sub->(...) ...
        ...
    }

    $inner_sub = sub { ... $shared_data ... };
}