my $res = $dbh->selectall_arrayref(<<'SQL');
 SELECT id, title FROM tbl_articles
 SQL

 my @subs = (
    [
        'Using string subst' => sub {
            for (@$res) {
                $dbh->do(
                'UPDATE tbl_articles SET title = '.
                $dbh->quote('##'.$_->[1])." WHERE id = $_->[0]");
            }
        },
    ],
    [
        'Using placeholders' => sub {
            my $sth = $dbh->prepare(<<'SQL');
 UPDATE tbl_articles SET title = ? WHERE id = ?
 SQL
            for (@$res) {
                $sth->execute(@{$_}[1,0]);
            }
        },
    ],
 );

 for (@subs) {
    print "$_->[0]:\n";
    timethis(100, $_->[1]);
 }