Perl next 语句

next [ LABEL ];

#!/usr/bin/perl
 
a = 10;
while(a < 20 ){
   if( a == 15)
   {
       # 跳出迭代a = a + 1;
       next;
   }
   print "a 的值为:a\n";
   a =a + 1;
}

a 的值为: 10
a 的值为: 11
a 的值为: 12
a 的值为: 13
a 的值为: 14
a 的值为: 16
a 的值为: 17
a 的值为: 18
a 的值为: 19