@a = (1..10);

$_++, $_%=10 for @a;