my @set = qw(a a b c c);
my %seen;
my @unique = grep { not $seen{$_} ++ } @set;