sub foo {
  my ($hashref) = @_;
  for (keys %$hashref) {
  ...
   }
}
foo (\%hash);