while (@MESSAGE_IDS) {
    my @todel=splice @MESSAGE_IDS,0,10;
    my $sth=$dbh->prepare("DELETE FROM table WHERE ".
          join(" or ",map { "message_id = $_" } @todel));
    $sth->execute;
}