sub dump_hash(\%) {
    my $hr = shift;
    for ( sort keys %$hr ) {
      print "$_ $hr->{$_}\n";
    }
  }

  # use it like so:

  my %hash = ( ...whatever... );
  dump_hash(%hash);