sub foo(&@) {
  my ($crSub, @aParams) = @_;
  my @aResult;
  push(@aResult, $crSub->($_)) foreach @aParams;
  return @aResult;
}

#this outputs "(1 2 3)"
my @x = foo { return $_; } (1, 2, 3);
print "(@x)\n";