フィールド内の重複する値を削除しますか？

ファイル内の選択したフィールド内の重複する（またはそれ以上の）値を削除し、コピーを1つだけ保持するにはどうすればよいですか？

例

入力ファイル：

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

期待される出力：

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

承認された回答：

別のperl 解決策：

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