open(my $dbase, "+<", "dbase.mine")      # open for update