sub closeDatabase {
  foreach my $sth (@toClose) {
    ${$sth}->finish();
  }
  $dbh->disconnect;
}