my %hash;

foo(\%hash);

bar(\%hash);

sub foo{
    my $ref = shift;
}

sub bar {
    my $ref = shift;
}

# perhaps many more