$i = 0; TEST: while ($i < 5) # whileにラベルTESTを付ける { # ***** ブロック1 ***** print "$i\n"; # ここで次のループ処理へ移行。ラベルTESTのループ条件式の判定から繰り返される next TEST; print "ここは表示されない\n"; } continue { $i++; }