#! perl -l
use strict;
use warnings;

sub test{
    our %test;
    $test{localsub} = sub{
        print 'localsub1';
        return 12345;
    } unless exists $test{localsub};

    $test{localsub}->();
}

print test;