From 66379e80cdc805612327e71a6cfa79d4699a8186 Mon Sep 17 00:00:00 2001
From: Mark Canlas <github@htmlism.com>
Date: Wed, 10 Jun 2015 00:05:36 +0200
Subject: revamped for loops

---
 perl.html.markdown | 20 +++++++++++++++-----
 1 file changed, 15 insertions(+), 5 deletions(-)

diff --git a/perl.html.markdown b/perl.html.markdown
index ab8c7a32..3c0699ad 100644
--- a/perl.html.markdown
+++ b/perl.html.markdown
@@ -83,13 +83,23 @@ while (condition) {
 }
 
 
-# for and foreach
-for ($i = 0; $i <= $max; $i++) {
-  ...
+# for loops and iteration
+for (my $i = 0; $i < $max; $i++) {
+  print "index is $i";
+}
+
+for (my $i = 0; $i < @elements; $i++) {
+  print "Current element is " . $elements[$i];
 }
 
-foreach (@array) {
-  print "This element is $_\n";
+for my $element (@elements) {
+  print $element;
+}
+
+# implicitly
+
+for (@elements) {
+  print;
 }
 
 
-- 
cgit v1.2.3