“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

Another (maybe simpler) way out is declare variables as "our" instead of "my"

So,

our %marked;

instead of

my %marked;

etc.