my %my_global_values = (foo=>0, etc=>0);
my $rGlobals = \%my_global_values;
sub zigafoo { $rGlobals-> = 7 }