“Variable $foo will not stay shared” Warning/Error in Perl While Calling Subroutine

Question

Update3: If you like this posting please don\'t upvote me but upvote the genius answer by DVK below.

I have the following subroutines:<

Answer 1

When getting a diagnostic message from perl, it's usually a good idea to check out perldiag to find out what it means. That manpage also happens to cover the warning you're getting.

Basically, named subroutines don't nest in the way you were expecting them to. Solutions include using anonymous inner subroutines, not nesting named subroutines and just passing state on between them explicitly, or using something like mysubs from CPAN.