open FH, '<:encoding(utf8)', $file  or die "Couldn't open $file: $!\n";

    my $row = 0;

    while (<FH>) {
        chomp;
        $worksheet->write($row++, 0,  $_);
    }