my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 1 });
open my $fh, "<:encoding(utf-8)", $filename or die "...";
while (my $row = $csv->getline ($fh)) {
    ...