my %table = (
  fred => \&fred,
  barney => \&barney,
  betty => \&betty,
  wilma => \&wilma,
);
...
my $func = "betty";
$table{$func}->(@args); # call betty(@args);