Select Code to Download

use strict;

our $a="func";
...
  &$a(42);
}

my %dispatch=(
    func1 => sub { print shift },
...
       );

$dispatch{func1}->(42);