open my $CSV, '<:encoding(utf8)', $file or die "Cannot open $file: $!\n"