splice @array, 0, 0, splice(@array, rand @array); 

##</code><code>##

unshift @array, splice @array, rand @array;