my %dispatch = (
  value1 => \&code_A();
  value2 => \&code_B();
  value3 => \&code_C();
);

# and in your code:

if (exists $dispatch{$somevar}) {
  $dispatch{$somevar}->();
}