next 跳过当前循环

[oracle@PD sbin]$ cat t2.pl 
   for ($i=1;$i<=3;$i++){
      $j=0;
      print "$i is $i
";
      while ($j<=7){
      $j++;
      if ("$j" == "5") { next;}
      print "$j is $j
";
      };
     };
      
[oracle@PD sbin]$ perl t2.pl 
$i is 1
$j is 1
$j is 2
$j is 3
$j is 4
$j is 6
$j is 7
$j is 8
$i is 2
$j is 1
$j is 2
$j is 3
$j is 4
$j is 6
$j is 7
$j is 8
$i is 3
$j is 1
$j is 2
$j is 3
$j is 4
$j is 6
$j is 7
$j is 8