Select Code to Download

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

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