#!/usr/bin/perl
use DBI;

$tables=100;
$rows=10000;
$count=1

if (!($dbh = DBI->connect ('DBI:Oracle:orcl',"hr","hr")))
{
die ("Failed to connect to database: " . DBI->errstr);
};

$sql = "CREATE TABLE test_data($count)(".
			"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";


while ($count<$tables)
{
if (!($dbh->do ($sql)))
{
die ("Failed to insert row: " . DBI->errstr);
};

 $count++;
}
$dbh->commit;

$dbh->disconnect;