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

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

function(\%hash);