Mason sharing variables, rookie alert :)

I have 2 components. One builds a hash. the next needs to read it.

ex: "A" module

<%share>
my %hash = ( 'dogs' => 'ok' ,'cats'=>'maybe');


"B" module

<%perl>
my $dogs = $hash{'dogs'};
my $cats = $hash{'cats'};
print "dogs are $dogs and cats are $cats\n";