another way:

@rray=(1,2,2,3,3,3,4,4,4,4);
for(@rray) {
     $seen{$_}++;
}
@nodups=keys %seen;
print "@nodups\n";
[download]

The down side is that it looses original order.

Originally posted as a Categorized Answer.