my $dbh;
  if($A->{genome} eq 'hg18'){
    $dbh = $A->{E}->connectDatabase($A->{cfg},'/cfg/db/hg18tg', __LINE__);
  }
  elsif($A->{genome} eq 'hg19'){
    $dbh = $A->{E}->connectDatabase($A->{cfg},'/cfg/db/hg19tg', __LINE__);
  }
  else{"'$A->{genome}' not valid"}