Statement Perl

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