while ( chomp( my @lines = $it->() ) ) {

##</code><code>##

print for map { s/\s+/$letter++ . ' '/e; "$_\n" } @lines;