use threads; use threads::shared; my %Inventory; my %Test; share ( %Inventory ); $Test{0}{0} = 1; $Test{0}{1} = 1; $Test{1}{0} = 1; $Test{1}{1} = 1; %Inventory = %Test;