my @array=(...);
my %hash=();
my @arneu=();

for(@array){
push @arneu, $_ unless $hash{$_}++;
}