Perl初級者のコードを見ていたら、ループ送りの next をループの中で呼んでいるサブルーチンの中でやっていた。 #!/usr/bin/env perl use strict; use warnings; LOOP : for my $i (1 .. 10) { add2($i); print "$i at LOOP.\n"; } sub add2 { my $i = shift…