my $dbh = DBI->connect ("dbi:CSV:", undef, undef, { RaiseError => 1, PrintError => 1, f_dir => "/test/foo", f_ext => ".csv/r", f_encoding => "urf-8", }); my $stu = $dbh->prepare ("update foo set tel = ? where c_foo = ?"); my $sth = $dbh->prepare ("select c_foo, tel from foo"); $sth->execute; $sth->bind_columns (\my ($c_foo, $tel)); while ($sth->fetch) { $tel =~ s/^0/+91/ and $stu->execute ($tel, $c_foo); } $dbh->commit;