my %dispatch;

$dispatch{foo} = sub { 
  ...
};

$dispatch{bar} = sub {
  ...
};
...