my %disp_table = ( something => \&do_something );

##</code><code>##

$disp_table{'something'}->();

##</code><code>##

($disp_table{'not there'} || sub {})->();

##</code><code>##

    one   => sub { print "Number!\n" },
    two   => sub { print "Number!\n" },
    three => sub { print "Number!\n" },

##</code><code>##

    one   => sub { print "The loneliest "; number() },
    two   => \&number,
    three => \&number,