Perl中除了`until`，还有哪些控制流程的循环结构？

Perl中有几种常见的控制流程循环结构：

1. `while`循环：当给定的条件为真时，循环体内的代码将被执行，直到条件变为假为止。例如：

   while ($counter < 5) {
       print "$counter\n";
       $counter++;
   }

2. `for`循环：常用于遍历数组或执行固定次数的迭代。如遍历数组元素：

   for my $element (@array) {
       print "$element ";
   }

3. `foreach`循环：特别适合于遍历哈希表（Hashes）或列表（Lists）：

   foreach my $key (keys %hash) {
       print "$key => $hash{$key}\n";
   }

4. `do...while`循环：类似于`until`，但它会先执行一次循环体，然后检查条件：

   do {
       print "Before checking the condition...\n";
   } while ($condition);

每种循环都有其特定的应用场景，可以根据需要选择合适的结构。