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

##</code><code>##

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

##</code><code>##

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