my @permuted = @ary[0..$i-1, $j, $i+1..$j-1, $i, $j+1..$len];
# and
my @permuted = @ary;
@permuted[$i, $j] = @permuted[$j, $i];