$cand < $#array - 1 and @array[$cand+1..$#array] = reverse @array[$cand+1..$#array];