my $dbh = DBI->connect($dsn,$username,$password,{RaiseError=>1, AutoCommit=>1}) or die $DBI::errstr; #### my $insert1 = $dbh->prepare(" INSERT INTO HR.Tempest ( ID, NAME, TITLE, DEPT ) VALUES (?,?,?,?) "); for (...whatever...) { $insert1->execute($id,$name,$title,$dept); } #### my $resultset = $dbh->prepare("Select * from Tempest"); while(@row = $resultset->fetchrow_array()){ print"@row\n\n"; } #### my $resultset = $dbh->prepare("Select * from Hr.Tempest"); $resultset->execute(); while(@row = $resultset->fetchrow_array()){ print"@row\n\n"; } #### foreach my $year (sort keys %yr2dir) { create_table($dbh,$year); $dbh->begin_work; populate_table($dbh,$year,$yr2dir{$year}); $dbh->commit; }