309 ways to do variable increment $A++ in Perl | Hacker News Reader