open( my $csvfile, "<" . "$datadir" . "\\" . "$datinname" )or die "could not open $datinname\n ";