in reply to Remove duplicate strings from an array

And using a module (List::MoreUtils): 
use List::MoreUtils qw(uniq);
my @x = uniq 1, 1, 2, 2, 3, 5, 3, 4; # returns 1 2 3 5 4

[download]
And this function preserves the order in the array (which the hash-based solutions don't).

CountZero

"If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law

In Section Seekers of Perl Wisdom