Merge pull request #3526 from sdshlanta/patch-1

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

1 files changed, 1 insertions, 1 deletions

diff --git a/perl.html.markdown b/perl.html.markdown
index 17a538e3..08001ab0 100644
--- a/perl.html.markdown
+++ b/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";