my @u = do { my %seen; grep { ! $seen{$_}++ } @a };