open(DBA, "+< $datafile") ...