Select Code to Download

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

foreach (keys %unihan) {

...

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