my $dbhA = DBI->connect($data_sourceA, $usernameA, $authA, \%attrA) or die ...;
  my $dbhB = DBI->connect($data_sourceB, $usernameB, $authB, \%attrB) or die ...;