N:
for my $n (2 .. 99) {
  for my $x (2 .. $n - 1) {
    next N if 0 == $n % $x;
  }
  say $n, ' is a prime number';
}

##</code><code>##

for my $n (2 .. 99) {
  for my $x (2 .. $n - 1) {
    goto NOT_PRIME if 0 == $n % $x;
  } 
 PRIME: 
  say $n, ' is a prime number';
 NOT_PRIME:
}

##</code><code>##

for my $n (2 .. 99) {
  my $prime = 1;

  for (2 .. $n-1) {
    $prime = 0, last unless $n % $_;
  }

  if ($prime) {
    print $n, " is ";
  } else {
    print $n, " is not ";
  }

  print  "a prime number\n";
}

##</code><code>##

for my $n (2 .. 99) {
  for my $x (2 .. $n - 1) {
    if (0 == $n % $x) {          # py-if branch
      print $n, " is not ";
      goto BREAK;                # py-break
    }
  }
  print $n, " is ";              # py-else branch
 BREAK:
  print  "a prime number\n";
}