use strict;
use warnings;
use List::MoreUtils qw/any/;

my @prime = 2;
for my $i(3..100){
    push @prime, $i unless any { int($i/$_)==($i/$_) and $i!=$_ } @prime;
}
for(@prime){
    print "$_\n";
}