Select Code to Download

@a = ( 1 .. 10 );;

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

$things{ $thing }{$someotherkey}[$someindex]{$somekey}[ $_ ]