Select Code to Download

%seen = ();
@uniqu = grep { ! $seen{$_} ++ } @list;

use strict;
use warnings;
...

my @shuffled = shuffle @unique;
print "shuffled: @shuffled\n";

my @unique = unique(@array);

sub unique {
   my %seen;
   my @unique = grep {!$seen{$_}++} @_;
   return @unique;
}

sub unique { local %_; grep !$_{$_}++, @_ }