I'm not sure if this is what you're looking for but I've found this tip from "Perl Hacks" useful on many occasions.

perl -MCarp -e '
my $sub = sub {
        local *__ANON__ = "Some::Sub";
        Carp::cluck "clucks when called";
};
$sub->();
'
[download]

It won't help with you're aliasing problem but then you're probably just better of generating two subs identical except for their $__ANON__.