#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';

sub a {
    say 'sub a';
    local *_b = sub {
        say 'sub b';
    };

    _b();
}

a();

__END__

$ perl test.pl
sub a
sub b