$index = ($index + $dir) % @array;
print $array[$index];