my %h = (
  'a' => 1,
  'b' => 2,
  'c' => 3,
);

print_hash(\%h);

sub print_hash {
  my $h = shift;
  for (keys %$h) {
    print "$_: $h->{$_}\n";
  }
}
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks is a proud member of the The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.