my %hash;

foo(\%hash);

bar(\%hash);

sub foo{
    my $ref = shift;
}

sub bar {
    my $ref = shift;
}

# perhaps many more

##</code><code>##

our %hash;

foo();

bar();

sub foo{
    our %hash;
}

sub bar {
    our %hash;
}