my %charpinyin;

while (<IN>) {
   chomp;
   my ( $chchar, $pinyin ) = split /\t/;
   $charpinyin{$chchar} = $pinyin;
}