How can I change my script to make multiple connections to do the job

#!/usr/bin/perl
use strict;
use warnings;
use DBI;

my $tables=1000;
my $rows=100000;

my $dbh = DBI->connect ('DBI:Oracle:host=EM12;sid=orcl',"hr","hr")
        or die "Failed to connect to database: " . DBI->errstr;

for my $i (1..$tables) {
my $sql = "CREATE TABLE test_data$i(".
                                "id PRIMARY KEY,".
                                "group_id NOT NULL,".
                                "created_at NOT NULL,".
                                "text NOT NULL) AS ".
                                        "SELECT ".
                                                "rownum,".
                                                "MOD(rownum, 5),".
                                                "TO_DATE('1-jan-07', 'dd-mon-yy') + INTERVAL '1' MINUTE * rownum,".
                                                "CAST ('xyz' || rownum AS VARCHAR2(50)) ".
                                          "FROM dual ".
                                          "CONNECT BY LEVEL <= $rows";

$dbh->do($sql) or die DBI->errstr;

}

$dbh->disconnect;