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

##</code><code>##

open(TMPA, "+> $tempfile") ...