sub a {
        my $ref = sub {
                print "x1\n";
        };

        &$ref;
}

sub b {
        my $ref = sub {
                print "x2\n";
        };

        &$ref;
}

&a;
&b;