my$snp_sth=eval{$dbh->prepare("select distinct(vf.variation_name) from $SNPDB.transcript_variation as tv, $SNPDB.variation_feature as vf where vf.variation_feature_id = tv.variation_feature_id and tv.transcript_stable_id in(?)");};
my$haplotypes=$dbh->selectall_hashref("select gene_id from gene g, assembly_exception ae where
g.seq_region_id=ae.seq_region_id and ae.exc_type='HAP'",[qw(gene_id)])ordie$dbh->errstr;;
my$taxon_id=$dbh->selectrow_arrayref("select meta_value from meta where meta_key='species.taxonomy_id'");