At the Mongueurs Perl de Paris we have a long running tradition to obfuscate the incrementation of $A. The explanation of this tradition is written (in non obfuscated French) in this page with the current specimens.

The following obfu has been inspired by the peculiarities of parsing variables in double quoted strings. This was reminded to me by the following passage of the Apocalypse 4: "Therefore, we will make the rule that a left curly that has whitespace in front of it will never be interpreted as a subscript in Perl 6. (If you think this is totally bizarre thing to do, consider that this new approach is actually consistent with how Perl 5 already parses variables within interpolated strings.)"

No double increment!
$ a { 1 } = 1; $A +=eval "$ a { 1 }"; $a=1; $A += eval "$ a { 1 }"

-- stefp -- check out TeXmacs wiki