consolidate duplications in an array? (perl)

[littleman]

How would you all consolidate duplications in an array?
from:
@array = qw( 1 2 3 3 4 5 6 7 7 8 )
to:
@array = qw( 1 2 3 4 5 6 7 8 )

[sugarkane]

The standard way is this:

foreach $i (@array) {
push @new_array, $i unless $tmp{$i}++;
}

For fun, I also tried this:

foreach $i (@array) {
$tmp.="$i " unless $tmp=~/$i/;
}
@new_array=split(" ",$tmp);

...but it's waaay slower.

[littleman]

Thank you Sugarekane. I actually was doing something along the lines of your second approach. I like the first approach much better.