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