Help for this page

Select Code to Download

Select or download this

my (@items, @unique, %seen);

...
{
    push @unique, $_ unless $seen{$_}++;
}