sub add_action (&\%$) {
  my( $code, $h, $key ) = @_;
  $h->{$key} = $code;
}

my %dispatch;
add_action { do_something_with_foo } %dispatch => qr/foo/;