sub template {
    my $e = shift;
    my $common = sub {...shared stuff...}
    if ($e eq 'b') { return sub {&$common; ...stuff...} }
    if ($e eq 'u') { return sub {&$common: ...other stuff...} }
etc.