Here is Fisher-Yates in one line:

@array[-$i,$j] = @array[$j,-$i] while $j = rand(@array - $i), ++$i < @
+array;
[download]

japhy -- Perl and Regex Hacker