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