Suppression de doublons - PERL

slt tlm,

je voulais avoir votre avis sur la meilleure façon de procéder pour supprimer d'une liste de chaine de caractere les doublons...

ce que je fais pour l'instant (c'est pas terrible et cest bien pour ca que je poste ;)

1) je les stockes dans un tableau simple (pas associatif)

push(@stock, $elem);

2) je les tries

@stock=sort(@stock);

3)je passe tout les éléments en revue et je regarde si le suivant est identique. Si identique, je lui affecte la valeur ""


for ($i=0; $i < @stock; $i++)
{
if(@stock>$i+1)
{
($stock[$i]eq$stock[$i+1])?$stock[$i]='':$stock[$i];
}
}


4) je retries (je vous avais prévenu... cest vraiment pas terrible mon algo) :(

@stock=sort(@stock);

5) ensuite, rebelotte, je parcours le tableau tout en supprimant les éléments quand je rencontre une chaine de caractere nulle... si je rencontre qque chose de différent je sort...

while (@sender[0]eq'')
{
shift(@sender);
if (!@sender)
{
last;
}
}


... tout ca pour virer les doublons.... :(
donc si quelqun vois une maniere plus optimisé que la mienne ....du style qu'il me sorte une fonction dans perl eradikerdoublons() ou (car jai cherché, elle existe pas cette super fonction dans perl ;) améliorer mon algo ... ca serai sympa qu'il mexplique comment ;)