Help for this page

Select Code to Download

Select or download this

sub uniq (@) {
    my %seen = ();
    grep { not $seen{$_}++ } @_;
}