my @callbacks = ( &some_handler, &another_handler, &foo_handler, &bar_handler, ); my $rv = $callbacks[$event]->($arg0, $arg1); #### 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); } }; #### foreach (@procs) { $_->(); }