Select Code to Download

my $dbh = DBI->connect($dsn,$username,$password,{RaiseError=>1, AutoCo
+mmit=>1}) or 
    die $DBI::errstr;

my $insert1 = $dbh->prepare("
    INSERT INTO HR.Tempest (
...
{
    $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)
{
...
   populate_table($dbh,$year,$yr2dir{$year});
   $dbh->commit;
}