$index = ($index + $dir) % @array;

##</code><code>##

( $index += $dir ) %= @array;