my %attr = ( RaiseError => 1);  #auto die with error printout
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile","","",\%attr)
    or die "Couldn't connect to database $dbfile: " . DBI->errstr;

##</code><code>##

$dbh->begin_work;
foreach my $row_hash_ref (@$result){
  $exe->($row_hash_ref,$col_arrayref);
  $update->execute(@$row_hash_ref{@$col_arrayref},$row_hash_ref->{rowid});
}  
$dbh->commit;