Merge pull request #3526 from sdshlanta/patch-1

[perl5/en] Fixed variable not declared before use.

perl.html.markdown

@@ -152,7 +152,7 @@ while (condition) {
   ...
 }
 
-
+my $max = 5;
 # for loops and iteration
 for my $i (0 .. $max) {
   print "index is $i";