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

This is an alternative way to sort it.

Chris