foreach (keys %unihan) {

to:

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