my $pat =
   join '|',
   map quotemeta,
   keys(%Ensembl);

s/($pat)/$Ensembl{$1}/g;