$unihan{$_}[82] = $unihan{$_}[82];

##</code><code>##

foreach (keys %unihan) {

to:

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