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