@array[$index1, $index2] = @array[$index2, $index1];

##</code><code>##

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