sub quz { ... }
my %dtbl = (
  foo => sub { ... },
  bar => sub { ... },
  quz => \&quz,
  # etc.
);
my $sub_routine = "quz";
$dtbl{$sub_routine}->($value1,$value2);