foreach my $key ( keys %hash ) {
  my $val = $hash{$key};
  ...
}