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

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