Give $NR a more idiomatic Perl 6 example without using a meta-operator

Author: lizmat

doc/Language/5to6-perlvar.pod6

@@ -483,8 +483,8 @@ you can L<zip|/language/operators#index-entry-Z_%28zip_meta_operator%29> with
 a L<Range>:
 
 =begin code
-for 1..* Z "foo".IO.lines -> ($ln, $text) {
-    say "$ln: $text"
+for "foo".IO.lines.kv -> $n, $line {
+    say "{$n + 1}: $line"
 }
 # OUTPUT:
 # 1: a