Statement Perl

  1. Home
  2. Perl
  3. Statement
  4. Last with label
#!/usr/bin/perl -w
use strict;
my $i = 1;
OUTER: while ($i <= 5) {
    my $j = 1;
    while ($j <= 5) {
        last OUTER if $j == 3;
        print "$i ** $j = ", $i ** $j, "\n";
        $j++;
    }
    $i++;
}