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]