my $j = @arr - $i;
    @arr[ $j+1..$#arr ] = reverse @arr[ $j+1..$#arr ];
    @arr[ $j, $j+$d ] = @arr[ $j+$d, $j ];