programming-examples/perl/Statement/Using block labels with next in nested looping structures.pl

OUTER: foreach $row ( 1 .. 10 ) {

   INNER: foreach $column ( 1 .. 10 ) {

             if ( $row < $column ) {
                print "\n";
                next OUTER;
             }

             print "$column   ";
          }
       }