#!/usr/bin/perl
use warnings;
use strict;
use feature qw(say);


for my $n (2 .. 99) {
  my $prime = 1;
  for (2 .. $n-1) {
    $prime = 0, last unless $n % $_;
  }
  say $n, ' is a primer number' if $prime;
}