Help for this page
splice @array, 0, 0, splice(@array, rand @array);
unshift @array, splice @array, rand @array;