## rank by len
print join("\n",sort sort_by_len keys %chn_hash);
sub sort_by_len
{
if(length($a) < length($b)) {-1} elsif (length($a) > length($b)) {1} else {0}
}
print join("\n",sort sort_by_len keys %chn_hash);
sub sort_by_len
{
if(length($a) < length($b)) {-1} elsif (length($a) > length($b)) {1} else {0}
}