<p>I have an array in Perl:</p>

<pre><code>my @my_array = ("one","two","three","two","three");
</code></pre>

<p>How do I remove the duplicates from the array?</p>

You can do something like this as demonstrated in
perlfaq4
:
```
```
sub uniq {
    my %seen;
    grep !$seen{$_}++, @_;
}

my @array = qw(one two three two three);
my @filtered = uniq(@array);

print "@filtered\n";
```
```
Outputs:
```
```
one two three
```
```
If you want to use a module, try the
```
uniq
```
function from
```
List::MoreUtils
```