use strict;

sub func1 {
    print "Here\n";
}

my $var = \&func1;

$var->();

##</code><code>##

my %dispatch = (
    func1 => \&func1,
    func2 => \&func2,
);

my $var = 'func1';

$dispatch{$var}->();