“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

This error can also happen if you've accidentally re-declared shared variables in the main thread of a script,

`

use vars qw(%types  %colors); 

my %types = (...);    # bad
%colors = (...);   # good

`