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

##</code><code>##

while( my( $key, $val ) = each %hash ) {
    ## ...
}