       
     Perl    for,  while   do    -
       .  -
  ,   Perl    -
,    .  ,   -
 , , Perl   ,  6 
   .     for, while 
do        Perl:

for($i = 0; $i< 100;$i++)
   {
printf("%d\n", $i) ;
           }
while ($i > 0)
   {
        printf("%d\n", $i-);
   }
do {
printf("%d\n", $i++);
      } while ($i < 0);

              -
 Perl    ,  Perl    break,  -
 continue    .  , Perl
  ,      -
 :

? last       (   break)
? next      (   continue)
? redo     

           Perl,   
    continue.    -
  while,    continue:
        $i = 100;
while ($i > 0)
   {
print $i;
    } continue {$i-}

          continue   -
   for,      .  -
  Perl   continue    -
.  ,     ,   continue  
     ,      
 for.     Perl   next, 
continue   ,    .  -
     redo,   continue    -
.

     
       Perl    ,    
   .     -
 (,  outerloop:).    goto,  
    .       -
  last,  next  redo,     .
     last  -
  :

outerloop: while ($i > 0)
        {
              while ($j > 0)
                {
                        # -  

                        if ($needToAboutLoop)
                        {
                                last outerloop;
                        }
                }
        }

           last   
 outerloop    .

      UNTIL
              Perl    
until,      while.    
,    while     ,   
  .   until,  ,  -
    ,     . -
,    while,  ,      
.

        while (!(expr))
                {
                        statement;
                }
       until,     ,  -
 :

        until (expr)
        {
                statement;
        }

             do  while  -
     ,     -
 ,       :

do {
        statement;
} while (!(expr));

       do until,    -
     :

do
{
        statement;
} until (expr);

      FOR  FOREACH
     Perl   for    :

for (statement1; expression; statement2)
    {
        statement3;
     }

     ,     for  ,  
    0  100:

for ($digit = 0; $digit <=100; $digit++)
     {
        print $digit, ' ';
      }

      Perl    foreach, -
         -
.  :

@list = ('a','b','c');

foreach $arg (@list)
    {
        print "List item: $arg\n";
     }

foreach $i (1..10)
     {
        print "iteration $i\n"
      }

         foreach     
  @list.          foreach
      1  10.
       foreach   ,  
,   ,       
.     ,  -
  {$arg     $i      )
     .    -
        foreach  
 .     ,  foreach  -
     ,    
 .        $i  
    foreach:

        $i = 1001;
        foreach $i (1..9)
            {
                print "$i\n";           #   123456789
             }

        print "$i\n";

          ,     $i,    -
    ,    -
 $i,   .
      , foreach,      -
,       .
(       !)  
  foreach,       10  
 :

@list = 1..5;
foreach $i (@list)
      {
        $i += 10;
      }

$,  = ' ';
print @list;            #  11 12 13 14 15

          -
 foreach.    Perl  foreach  for  
.        -
. Perl,   ,    ,  -
   .

        GOTO
     Perl     goto, -
        -
 .       goto  -
   1  10:

$i = 1;
loop:
        print $i++, ' ';

        if ($i <=10)
                {
                        goto loop;
                }

      
       Perl      if,
unless, while  until,     -
.       c    
       .  ,  
        ,   
    .    -
,   die  ,    -
 ,    $count   10:

if  ($count < 10)
        {
                die;
        }

        die   if,   -
 ,    :

die if ($count < 10);

      ,        -
   :

($count >= 10) || die;

       ,    $count     
10,  Perl        -
 die       ,      
$count  10,       -
  die      .
     ,           
unless       :

die unless ($count >= 10);

      ,   while  -
:

$i = 0;
while ($i < 10)
     {
        $i++;
      }

$i = 0;
$i++ while ($i < 10);

       ,   ,  
        .   -
 ,   until :

$i = 10;
until ($i >= 10)
     {
        $i++;
      };

$i = 10;
$i++   until ($i >=10);

:    ,     -
     ,  Perl -
       .

           EVAL
      Perl   ,  -
   Perl  ,      <
>,   ,     .  
   Perl (    Perl-
  Perldb.PL).   ,    
        
    . Perl  -
 ,    eval.    
        
  , , ,   -
   Perl.     -
 eval  ,    :

$perl_statement = 'print "Hello, world\n";';

eval $perl_statement;                   #  Hello, world
$i = 1001;
$varname = '$i';
print eval $varname;                    #   $i

:    eval    -
,   ,      eval ,
  .   eval,   
    Perl,     -
 .         
,        Internet
 Web.

     
           ,    Perl
 .       
   sub,   :

sub demo_sub
      {
        print "demo_sub called\n";
       }

&demo_sub;                      #  

          ,  
demo_sub.        -
 (&)   .      -
 Perl    .
              -
  ,    Perl   -
   ,     .   -
        -
  (forward reference).      
   .      -
    show_value,     ,
    :

        sub show_value
            {
                print 'The value id ', $_[0];
             }

        &show_value(1001);

        Perl      
  .       
     @_,    -
.    ,      -
 ,        
: $_[0], $_[1],  . .     -
    ,    -
        -
.     ,      
show_fwo_values    :

sub show_two_values
        {
                print '  ', $_[0], "\n";
                print '   ', $_[0], "\n";
        }

&show_two_values(1001, 2002);

     ,    show_all_values  
 ,   .    
   :

sub show_all_values
        {
                for ($i = 0; $i < @_; $i++)
                     {
                        print 'Parametr ', $i, ' is ', $_[$i], "\n";
                     }
                }

& show_all_values(1001,2002,3003,4004);

       ,   Perl   -
.      return.    -
  ,  Perl       -
 return.      return,
          -
 .       
  :

sub add_values
    {
        return $_[0] + $_[1];
     }

print 'The result is: ', &add_values(1001,2002);

      
        ,  Perl     -
  .   ,     ,
        .
, ,      add_valuesl 
   addvalue.pl.   require,  -
    Perl       -
,   :

require "addvalue.pl";
print &add_values(10,11);

           require    
 #include   .    -
 , Perl    ,    -
    Perl (      -
  ),     .   -
     ,   -
  .
     Perl ,         
require,            -
    .    -
,     Perl.    -
   ,       
 Perl,      ,  -
  .







