Select Code to Download

use strict;

...
my $var = \&func1;

$var->();

my %dispatch = (
    func1 => \&func1,
...
my $var = 'func1';

$dispatch{$var}->();