my $conn = 20; my @dbh = map { DBI->connect ('DBI:Oracle:host=EM12;sid=orcl',"hr","hr") or die "Failed to connect to database: " . DBI->errstr} 1..$conn; for my $t (1..$tables){ my $sql = .... $dbh[$t % $conn]->do ($sql) or die DBI->errstr; }