my $var = \&funcname;
&$var;

sub funcname { print "funcname\n" }

##</code><code>##

$var = 'funcname';
&$var;
##</code><code>##

my %dispatch = (foo => \&foo,
                bar => \&bar );

foreach my $func (keys %dispatch) {
    &{ $dispatch{$func} };
}

sub foo {
    print "foo\n";
}

sub bar {
    print "bar\n";
}