Select Code to Download

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

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