@liste = qw(bla tata uhha lala tata uhha tata uhha bla uhha);
@neu = grep { ! $hash{$_}++} @liste;
print "@neu\n", %hash, "\n";