open( my $csvfile, "< :encoding(UTF-8)" . "$datadir" . "\\" . "$datinname" )or die "could not open $datinname\n ";