RosettaCodeData/Task/First-class-functions/Perl-6/first-class-functions-2.pl6

my @a = 1,2,3;
my @op = &infix:<+>, &infix:<->, &infix:<*>;
for flat @a Z @op -> $v, &op { say 42.&op($v) }