my $nxt_str = make_strings($n);
while (my $str = $nxt_str->()) {
  #..do stuff with $str
}