in reply to Randomising an array

The best way to unsort an array? Sort it!! 

@a=0..20;$,=" ";
print sort {1-int rand 3} @a;

[download]

OK, I couldn't resist golfing it.
<Reveal this spoiler or all in this thread>
s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s |-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,, $|=1,select$,,$,,$,,1e-1;print;redo}

In Section Seekers of Perl Wisdom