Select Code to Download

#Initial code...
@array = (['EMBL','a','b'],['c','d'],['EMBL','e','f']);
...
$list = join "\n", map { $_->[0] eq "EMBL" ? @{$_}[1,2] : () }  @array
+;

print "\nSimplified:\n$list";

map { (grep_condition) ? map_function : () }