sub { my %hash; for(@list){ $hash{rand()}= $_ }; return values %hash }