I prefer array indexes that start from 0 in beginner docs

p4raw-id: //depot/perl@28558

diff --git a/pod/perlintro.pod b/pod/perlintro.pod
index 5e5923d..da9c2af 100644 (file)
--- a/pod/perlintro.pod
+++ b/pod/perlintro.pod
@@ -376,7 +376,7 @@ the more friendly list scanning C<foreach> loop.
         print "This element is $_\n";
     }
 
-    print $list[$_] foreach 1 .. $max;
+    print $list[$_] foreach 0 .. $max;
 
     # you don't have to use the default $_ either...
     foreach my $key (keys %hash) {