Don't assign values, just assign ().

Or use:

$seen{$_}++ or push @uniq, $_ for @orig;
# or
@uniq = grep !$seen{$_}++, @orig;
[download]

japhy -- Perl and Regex Hacker