programming-examples/perl/Statement/Using block labels with next.pl

LOOP: for ( $number = 1; $number <= 10; ++$number ) {
         next LOOP if ( $number % 2 == 0 );
         print "$number ";   # displays only odd numbers
      }