@ulist = sort {$b =~ tr/\t// <=> $a =~ tr/\t//} keys %unk;