#!/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';
    }
}

##</code><code>##

for my $n (2 .. 99) {
    my $is_prime = 1;
    $is_prime &&= $n % $_ or last for 2 .. sqrt $n;

    say $n, ' is a primer number' if $is_prime;
}