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";
Edited 2001-05-24 by Ovid