@liste = `cat test.tab`;

my %uniqe=();
# durchlaufe das Array rückwärts
for my $cnt (reverse (0..$#liste))
{
  # ein String generieren der "eindeutig" ist
  my $line=join(',',@{$liste[$cnt]});## print $line printet nichts!!!
  # entferne die Zeile aus dem Array wenn sie schon einmal gefunden wurde
  splice(@liste, $cnt,1) if($uniqe{$line});
  # setze diese Zeile als gefunden;
  $uniqe{$line}++;print "$cnt\n";
}

foreach $liste (@liste)
  {print $liste;}