my $i=0;

foreach my $field (qw(foo bar baz quux)) {

    print "i=$i\n";
    
    if ($i == 0) {
        $i++;                 # increment
    }    
    elsif ($i == 1) {
     
        if (0) {
            if (0) {
                $i--;
            }    
        }
        else {
            $i--;             # decrement   
        }            
    }    
}

__END__
i=0
i=1
i=0
i=1