Select Code to Download

my $id_article = 0;
    for ($i_article = 0; $i_article < @output_concord_files_prepare; $
+i_article++){
        $dbh->do("
...
        ") || die $dbh->errstr;
    }
    $id_article++;

my $id_event = 0;
    for ($i_event = 0; $i_event < @event_prepare; $i_event++){
        $dbh->do("
...
         ") || die $dbh->errstr;
    }
    $id_event++;

$create_query = qq{
        create table article_event_index(
            id_article int(10) NOT NULL,
...
        )
    };
    $dbh->do($create_query);

    #!/usr/bin/perl -w
         
    use strict;
...
            }
        }
    }