while ( ($key,$val)= each %unihan ) {
}