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