use strict;
use warnings;
my @prime = (2); my $not_prime;
for my $i(3..100){
    $not_prime=0;
    for(@prime){
        next if int($i/$_)!=($i/$_);
        $not_prime=1;
    }
    push @prime, $i if $not_prime!=1;
}
print join "\n", @prime;