open(DAT, "<", $file_to_parse) || die "Could not open file! ($!)\n";