my ($id) = delete $data_to_insert{id};

my $sql = "UPDATE some_table SET "
    . join( '=?,', keys %data_to_insert ) . '=? '
    . 'WHERE id=?';

$dbh->do( $stmt, undef, values %data_to_insert, $id );
[download]