{
    # these two subroutines and $i must be serialized in one go
    # so the dumper knows that the $i++ means the same variable
    # in both code structures:
    my $i;
    sub increment { $i++ };
    sub decrement { $i-- };
};