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