# Remove duplicate elements, leaving only unique elements.
sub uniq {
    my %seen;
    return grep { ! $seen{$_}++ } @_;
}
@foo = uniq @bar;

##</code><code>##

use List::MoreUtils qw( uniq );
@foo = uniq @bar;