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