Statement Perl

  1. Home
  2. Perl
  3. Statement
  4. Using block labels with next in nested looping structures
OUTER: foreach $row ( 1 .. 10 ) {
   INNER: foreach $column ( 1 .. 10 ) {
             if ( $row < $column ) {
                print "\n";
                next OUTER;
             }
             print "$column   ";
          }
       }