Or use:
$seen{$_}++ or push @uniq, $_ for @orig; # or @uniq = grep !$seen{$_}++, @orig; [download]
In reply to Re: Re: Detecting duplicate entries by japhy in thread Detecting duplicate entries by r.joseph