309 ways to do variable increment $A++ in Perl · HackerTrans