http://www.perlmonks.org?node_id=1067032


in reply to A better (ie.more concise) way to write this?

Not sure this is better but I like the look of it:

( $a[$_] += 1 ) %= 10 for 0..9;