in reply to modifying in the same file

See perldoc -f open and use +< 
 open(my $dbase, "+<", "dbase.mine")      # open for update

[download]
I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh

In Section Seekers of Perl Wisdom