use Devel::Refcount qw/refcount/;
my $x;
our %h = (one=>'two');
{ local %h = (three=>'four');
  $x = \%h;
  print "$x ", refcount($x), "\n"; }
print "$x ", refcount($x), "\n";
__END__
HASH(0x2fb246a) 2
HASH(0x2fb246a) 1