Schleifchen-Poetik

[hotti]

  
my $i = 0;  
say ++$i while($i < 10);  
         # solange $i kleiner 10  
  
$i = 0;  
say ++$i until($i == 10);  
         # bis $i gleich 10