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