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