print $_, "\n" foreach (sort {int(rand(3))-1} @array); 

##</code><code>##

print $_, "\n" foreach shuffle @array;