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); }
};