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

my $var = 'func1';

$dispatch{$var}->();