@a = map {++$_ % 10 } @a[0-5,7];