Supprimer les doublons dans un champ ?

Comment supprimer les valeurs en double (ou plus) dans un champ sélectionné dans un fichier, en ne gardant qu'une seule copie ?

Exemple

Fichier d'entrée :

A    1,2,3,45,1,8,2,3
B    5,6,6,6,6,6,2,3,7

Sortie attendue :

A    1,2,3,45,8
B    5,6,2,3,7

Réponse acceptée :

Un autre perl solution :

perl -anle '                                                                    
    print "$F[0] ", join ",", grep {!$seen{$_}++} split ",",$F[1];              
    %seen=();                                                                   
' file
A 1,2,3,45,8
B 5,6,2,3,7