Select Code to Download

my @callbacks = (
   &some_handler,
...
);

my $rv = $callbacks[$event]->($arg0, $arg1);

my $rv;
given ($event) {
...
   when FOO_EVENT     { $rv = foo_handler    ($arg0, $arg1); }
   when BAR_EVENT     { $rv = bar_handler    ($arg0, $arg1); }
};

foreach (@procs) {
   $_->();
}