Select Code to Download

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