my %code = (
    foo => sub { print "Foo\n"; },
    bar => sub { print "Bar\n"; },
);
$code{foo}();  # prints "Foo"
$code{bar}();  # prints "Bar"