my %dispatch_table = (
    foo => \&foo,
    bar => sub { mumble; },
);
##</code><code>##

sub generate {
    my $foo = shift;
    sub { $foo };
}
##</code><code>##

sub callit {
    my $sub = shift;
    $sub->(@_);
}
##</code><code>##

# in a scope . . .
    local *foo = generate 'bar';