{
    no strict 'refs';
    # the code
}

##</code><code>##

my %code = (
    foo => \&foo,
    bar => \&bar,
    baz => sub { print 'baz here', $/ }
);
my $pick = 'foo';
$code{$pick)();