foreach (grep $_->[0] eq 'EMBL') {
    print OUT "DR EMBL;$_->[0];$_->[1];-.\n";
}