for my $key ( keys %some_hash ) {
   my $val = $some_hash{$key};
   ...
}