open (DAT,"<",$file) || die ("Could not open file $file: $!");