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";
}