Select Code to Download

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

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