my @set = qw(a a b c c);
my %seen;
@seen{@set} = ();
my @unique = keys %seen;