Select Code to Download

sub nested_foreach(&@) {
  my $code = shift;
...
my @c = ...;

nested_foreach { say join ' ', @_ } \@a, \@b, \@c;

sub nested_foreach(&@) {
  ... # see above
...
    iterative => sub { nested_foreach { join("", @_) } @AoA },
    recursive => sub { nForX { join("", @_) } scalar @AoA, @AoA },
};

          s/iter iterative recursive
iterative   1.86        --      -71%
recursive  0.532      249%        --