foreach my $year (sort keys %yr2dir)
{
   create_table($dbh,$year);
   
   $dbh->begin_work;
   populate_table($dbh,$year,$yr2dir{$year});
   $dbh->commit;
}