Thanks tye .But it seem there is some problem in your solution ,the variable will be assigned according the context where the sub be executed.just like this.

package test;
for (A..D)
{
*{$_}=sub{
    print "my name is $_ \n";
};
}
package main;

test->A();
test->B();
$_="here";
test->C();
test->D();


output:
my name is
my name is
my name is here
my name is here
[download]