Select Code to Download

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

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