# expl4.pl  example  loops, iteration
use strict;
use warnings;
    
print "perl  expl4.pl  running\n";
my $n = 3;
my $sum = 0;
for (my $i = 0; $i < $n; $i++)
{
  $sum += $i;
  print "i= $i sum = $sum \n";
}

my $k = -1;
while($k < $n)
{
   print "k= $k \n";
   $k += 2;
}

foreach my $i (1..3)
{
  foreach my $j (4..5)
  {
    print "i,j  $i  $j \n";
  }
}

my $min = 999;
foreach my $item (5, 2, 1, 4, 3)
{
  $min = $item if $min > $item;
}
print "Min = $min \n\n";

print "expl4.pl finished\n";