sub function {
   my ($hash_ref) = @_;

   foreach (keys %$hash_ref) {
      ...
   }
}

function(\%hash);

##</code><code>##

sub function {
   our %hash; local *hash = \$_[0];

   foreach (keys %hash) {
      ...
   }
}

function(\%hash);

##</code><code>##

sub function {
   my %hash = @_;

   foreach (keys %hash) {
      ...
   }
}

function(%hash);