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";