my $upcase = apply( sub { uc("@_") } );
    print $upcase->("Hello");           # HELLO
    print $upcase->("Hello", "world");  # HELLO WORLD

    my $parenify_all  = apply( sub { "(@_)" } );
    my $parenify_each = apply_to_each( $parenify_all );
    print $parenify_all ->("Hello", "world");  # (Hello world)
    print $parenify_each->("Hello", "world");  # (Hello)(world)