my @callbacks = (
   &some_handler,
   &another_handler,
   &foo_handler,
   &bar_handler,
);

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

##</code><code>##

my $rv;
given ($event) {
   when SOME_EVENT    { $rv = some_handler   ($arg0, $arg1); }
   when ANOTHER_EVENT { $rv = another_handler($arg0, $arg1); }
   when FOO_EVENT     { $rv = foo_handler    ($arg0, $arg1); }
   when BAR_EVENT     { $rv = bar_handler    ($arg0, $arg1); }
};

##</code><code>##

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