my $id_event = 0;
    for ($i_event = 0; $i_event < @event_prepare; $i_event++){
        $dbh->do("
            INSERT INTO `event`(`id_event`, `event`)
            VALUES ('$id_event', '$event_prepare[$i_event]')
         ") || die $dbh->errstr;
    }
    $id_event++;