while ( my ( $key, $val ) = each %hash ) {
    delete $hash{$key} if not defined $val;
}