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

##</code><code>##

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