my %disp_table = ( something => \&do_something ); #### $disp_table{'something'}->(); #### ($disp_table{'not there'} || sub {})->(); #### one => sub { print "Number!\n" }, two => sub { print "Number!\n" }, three => sub { print "Number!\n" }, #### one => sub { print "The loneliest "; number() }, two => \&number, three => \&number,