@liste = `cat test.tab`;

my %unique=map{(join(',',@$_),1)}@liste;
@liste=map{[split(',',$_)]}keys(%unique);

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

print "$count\n";