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

##</code><code>##

use strict;
use warnings;
use Algorithm::Numerical::Shuffle qw(shuffle);

my @array = (1..10,2..11,3..12);
print "   begin: @array\n";

my %seen;
my @unique = grep {!$seen{$_}++} @array;
print "  unique: @unique\n";

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

##</code><code>##

my @unique = unique(@array);

##</code><code>##

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

##</code><code>##

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