# step $index in $dir direction in @array circular
$index+=$dir;
$index=0 if $index>=@array;
$index=@array-1 if $index<0;