my %dispatch = (
    blubb => \&sub1,
    foo   => \&sub2,
    bar   => \&sub3,
);
sub sub1 { ... }
...

my $sub = "foo";
$dispatch{ $sub }->($parameter); # ruft sub2($parameter) auf