Select Code to Download

$DBI->do("blah");
if ($DBI->err) {
   print "Error: ", $DBI->errstr, "\n"; 
}

foreach (@STRUCTURE) {
    push @list, "$_ = ?";
...
$DBH->do(qq{
    UPDATE $TABLENAME SET $string WHERE $KEY=? LIMIT 1
}, undef, @vals, $keyval);