use 5.020;
use warnings;

outer1();

exit 0;

sub outer1 {
    my $hello = 'hello';

    local *inner = sub {
        say $hello;
    };
    outer2();
}

sub outer2 {
    inner();
}

__END__
hello