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