309 ways to do variable increment $A++ in Perl
squareperl.com