sub foo { print "in foo\n" }

my %dispatch = (
  foo => \&foo,
  bar => sub { print "in bar\n" },
);

my @data = qw/ foo bar /;

$dispatch{$_}->() for @data;

__output__

in foo
in bar
[download]

sub foo { print "in foo\n" }

(\&{"foo"})->();

__output__

in foo
[download]

_________
broquaint

but don't do that. It will complain (as well it should) under use strict;

Use a dispatch table instead:

use strict;

sub func
{
    print "func ran\n";
}

my %dispatch =
(
    func => \&func
);

my $var = 'func';

&{$dispatch{$var}}();
[download]

use strict;

package A;
sub doit {
   print "Called A\n";
}

package B;
sub doit {
   print "Called B\n";
}

my $ref = [];
bless $ref,"A";
$ref->doit();
bless $ref,"B";
$ref->doit();
[download]

Update: I managed to fool myself but not broquiant. The -MStrict below is completely useless as there is no module Strict, only strict. So the following will only work without stricture. Which is one reason why there is probably a better way to do this.

I wish there was a switch to enable stricture!

You could do

P:\test>perl -wMStrict -le"sub func{ print 'Hello world'; } my $funcna
+me='func'; &$funcname;"
Hello world

P:\test>perl -wMStrict -le"sub func{ print 'Hello world'; } &{ $ARGV[0
+] };" func
Hello world
[download]

but there are probably better ways of achieving your aims, but it would requires a better description of those aims.