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

sub a {
    local *_b = sub {
        return @_;
    };
    return _b(@_);
}

say a('sub a');

__END__

$ perl test.pl
sub a