#!/usr/bin/perl -w
use strict; 
use Tie::File;

tie my @ry,"Tie::File","myfile.csv" or die $!;
$_ =~ s/foo/bar/g for @ry;
untie @ry;