my $x = 0;
while (++$x) {
  nested_for(
      sub {print join "", @_, "\n";}
    , map \@chars, 1..$x
  );
}