Select Code to Download

[][][] \t pronunciation
[][][] \t pronunciation

open(INPUT,"<","c:\\software\\alexcode\\AlexData.txt")
    or die"Could not open input file for reading\n";
...
while (($key, $value) = each(%charpinyin)) {
    print "$key \t $value \n";
}