in reply to using a hash as a sort of dictionary
my $pat = join '|', map quotemeta, keys(%Ensembl); s/($pat)/$Ensembl{$1}/g; [download]