sub_with_callbacks (
  red    => sub { my %arg = @_; .. $arg{foo} .. },
  green  => sub { my %arg = @_; .. $arg{foo} .. },
  blue   => sub { my %arg = @_; .. $arg{foo} .. },
  yellow => sub { my %arg = @_; .. $arg{foo} .. }
);