There are at least two ways to do it that I can think of (will have to read the Perl docs to dredge up the details, though.) One involves using eval with a string instead of a block and the other involves mucking with the symbol table. Both will cause some (many?) of the monks to cringe. But, this is Perl, and it allows you do things that are otherwise questionable if you have a good reason to do so.

In any event, yes, it can be done, and I expect one of the others here with a better memory than mine right now will give you the details on the eval approach as well as why it can be a Bad Idea(tm) use it.