if ($overlap_cluster_terms_resplit_line =~ /^\s*(GO:\d+)\s\w+/g) { push (@overlap_cluster_terms_nothashed_keysarray, $overlap_cluster_desc); $overlap_cluster_terms = $1; $overlap_cluster_terms_hash{$overlap_cluster_terms} = $overlap_cluster_desc; # unless exists $overlap_cluster_terms_hash{$overlap_cluster_terms}; if (exists $overlap_cluster_terms_hash{$overlap_cluster_terms}) { push (@overlap_debug, $overlap_cluster_desc); print OVERLAP_OUTPUT $overlap_cluster_terms; print OVERLAP_OUTPUT "\t"; print OVERLAP_OUTPUT $overlap_cluster_desc; print OVERLAP_OUTPUT "\n\n"; }