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