Here's mine, 34 chars for the task which did not specify a print requirement. 32 without the my for strict compliance. 27 if you use something shorter than $agenda like $a

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