my %value_lkup = (
    A => '1000',
    B => '2000',
  CDE => '3000',
);

my $pat = '(?:' . join('|', keys %value_lkup) . ')';
s/($pat)/$value_lkup{$1}/g;