open my $OUT, '>:utf8', $filename or die $!;