my %dispatch = ( 
    DoThis => sub { print "You asked me to do this.\n"; },
    DoThat => sub { print "You asked me to do that.\n"; }
);