[perl #127422] Behavior of state vars in variations of `do while` inconsistent

[Sam S. via RT]

As another data point, the problem persists also when using parens instead of 
"do" to enforce return values:

    (loop { state $a++; say $a; })[^5]