splice @array, 0, 0, splice(@array, rand @array);
[download]

Good stuff, but typically we spell that:

unshift @array, splice @array, rand @array;
[download]

splice is cool, but you don't need to use it for the common thingies.

-- Randal L. Schwartz, Perl hacker