# expl5.pl  example  if then else
use strict;
use warnings;

print "perl  expl5.pl  running\n";

my $k = 3;
if ($k > 1)
{
  print "k= $k \n";
}

my @lst = ( 2, 4, 6, 8 );

if($lst[0] < 2)
{
  print "no \n";
}
else
{
  print "lst[0] = $lst[0] \n";
}

my $i = 4;
if ($i <= 3)
{
  print "i <= 3 \n";
}
elsif ($i >= 5)
{
  print "i >= 5 \n";
}
elsif ($i == 3)
{
  print "elsif i==3 \n";
}
else
{
   print "else \n";
}

print "expl5.pl finished\n";