use Encode; while () { $count ++; chomp ($_); $worksheet->write("A$count", decode('utf8',$_)); } close IN;