print OUT join ";", map {${$_}[1]}grep { ${$_}[0] eq "EMBL" } $entry->DRs->elements(),map {${$_}[2]} grep { ${$_}[0] eq "EMBL" } $entry->DRs->elements(),"\n";