I'm not sure what you attempt to do, but newer Perl support lexical subs, which might solve your problem.

my sub name { }