use List::Util qw(reduce); # unnecessary in in Perl 6 {grin}
my @result = reduce { [$b->{@$a}] } [], @$agenda;
[download]

my @result;
@result = $_->(@result) for @$agenda;
[download]

-- Randal L. Schwartz, Perl hacker

$agenda = [ sub { "Hello" }, sub { scalar reverse shift }, sub { chop 
+shift } ];
chain($agenda, [ ]);

### BEGIN GOLF MODE ###
sub chain($$) { my@x=@{+pop};foreach(@{+shift}){@x=$_->(@x)}@x }
### END GOLF MODE ###
[download]

Update: Fixed argument-modification error, thanks to tilly for pointing that out.

Did someone say golf?

sub chain{(*f,*_)=@_;@_=&$_ for@f;@_}
[download]

Of course you probably want strict compliant and it is bad style to modify your arguments in place. In which case it is probably better to make that:

sub chain{my($f,$a)=@_;$a=[&$_(@$a)]for@$f;@$a}
[download]

which is still reasonable...

tachyon

use strict;

# a ref to a few subrefs to go, performing as secified
# in that they take an array, do someting and return an array
my $agenda = [
            sub{my@in=@_;for(@in){$_=$_*2}@in;},
            sub{my@in=@_;for(@in){$_=$_*2}@in;},
            sub{my@in=@_;for(@in){$_=$_*2}@in;},
];

# four
my@a=(1,2,3);@a=&$_(@a)for@$agenda;print"@a";
[download]

Edited 2001-05-24 by Ovid

A few more variations on the theme

tachyon

use strict;

# a few subrefs to go, performing as specified
my $agenda = [
            sub{my@in=@_;for(@in){$_=$_*2}@in;},
            sub{my@in=@_;for(@in){$_=$_*2}@in;},
            sub{my@in=@_;for(@in){$_=$_*2}@in;},
];

# here is a little sub of 39 chars

print chain(1,2,3,$agenda);

sub chain{
    my$a=pop;
    @_=&$_(@_)for@$a;
    @_
}

# here it is as an anonymous sub
print&{sub{my$a=pop;@_=&$_(@_)for@$a;@_}}(1,2,3,$agenda);
[download]

FouRPlaY wrote:

Is it just me, or is everything on this site turning into a golf challenge? =)

78 letters. My solution:

Imagining? Does all here become golf?

37 letters. Though with English, one might argue that I've altered the meaning.

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.

35 characters. :-)

Imagining? Turns all here to golf?

And restucturing produces the 29 character logical equivalent of:

All here to golf or me only.

I don't think that can be improved much. :-)

28 chars and parses under strict

use strict;
'I',? you.Is all here->GOLF?
[download]

tachyon