@a = ( 1 .. 10 );; $a[$_] = ( $a[$_]+1 ) % 10 for 0 .. 9;; print @a;; 2 3 4 5 6 7 8 9 0 1