Select Code to Download

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;

$dbh->begin_work;
foreach my $row_hash_ref (@$result){
...
  $update->execute(@$row_hash_ref{@$col_arrayref},$row_hash_ref->{rowi
+d});
}  
$dbh->commit;