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