Stuff

foreach $table (@tables) {

        print "Export de la table $table.\n";

        open OUT,">$table.CSV";
        my @hcolonnes = ();
        my @col_lines  = @{$dbh->selectall_arrayref("select cname from col where tname='$table' order by colno")};
        foreach $colonne (@col_lines) {
                push @hcolonnes, @$colonne[0];
        }
        $colonnes = join "$sep",@hcolonnes;
        my $requete = "select ".(join ",",@hcolonnes)." from $table";


        print OUT "$colonnes\n";

        # Requetage de la base
        my $line;
        my @vals = @{$dbh->selectall_arrayref($requete)};
        foreach $line (@vals) {
                        print OUT join ("$sep",@$line);
                        print OUT "\n";
                }
        close OUT;
}