my $sth = 
          $dbh->prepare('UPDATE person SET email = ? WHERE person_id = ?');
        foreach my $id (@ids) {
            my $email = $email_addresses->[$id];
            $email =~ s!\@.*!\@plusthree.com!;
            $sth->execute($email, $id);
        }