Ah yes, writing a named sub in Perl 5 does not interact in the expected way with the context.

In Perl 6, you can nest subs, no problem. They find the proper variable in their active caller, if you refer to one.