Doesn't need to be lengthy.

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