while ( my ( $key, $value ) = each %hash ) {
    print qq[key: $key, value: $value\n];
}