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