use strict;
use warnings;

use Tie::File;
tie my @array, 'Tie::File', 'file.txt' or die $!;
for (@array) {
    if (/foo/) {
        $_ = 'This is now bar';
    }
}
untie @array;