my $sth = $dbh->prepare(<<'    END_SQL');
    UPDATE product_people_currency
    SET    people_id = ?
    WHERE  people_id = ?
    END_SQL

while (my ($old_id, $new_id) = each %id_pair) {
    $sth->execute($new_id,$old_id);
}