use Tie::File

for my $file (@files)
{
    my @file;
    tie @file, 'Tie::File', $file or die $!;
    for my $line ( @file )
    {
        # do stuff on the lines you want
        # it reflects 'inmediately' on the file
    }
    untie @file;
}