package barbaz;
my %my_package_values = (foo=>0);
my $rPackage = \%my_package_values;
sub foobar { $rPackage->{foo} = 7; }