tie my @A_cur_file_data, 'Tie::File', $cur_entrykey_path, recsep => "\r\n", discipline => ':encoding(UTF-8)' or die $!;