values %{ map { rand() => $_ } @list };

##</code><code>##

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