in reply to deleting lines from file

use Tie::File;

In Section Seekers of Perl Wisdom