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