Doppelte listenelemente entfernen

[flame]

hallo, ich kriege das nicht hin, der zeigt mir immernoch doppelte elemente an. Bitte helft mir. Ich bin ein Anfänger.

hier ist mein Code
use IO;

$unordnung='.\test.txt';
$ordnung='.\ordnung.txt';

open (IN,"<$unordnung");
open (OUT,">$ordnung");
OUT->autoflush(1);

@werte=<IN>;

$t=0;
         while (@werte)

{
  print $t;
  print "Doppelt sind: @werte[$t]\n";

chomp;
  splice @werte,0, $t;

$t++;

}

close IN;
close OUT;