@array = (['EMBL','a','b'],['c','d'],['EMBL','e','f']);
$list = join "\n", map {${$_}[1],${$_}[2]}grep { ${$_}[0] eq "EMBL" } @array;
print $list;