use strict;
use warnings;
my @prime = 2;
for my $i(3..100){
    print "$i...\n";
    push @prime, $i;
    for(@prime){
        if(int($i/$_)==($i/$_) and $i!=$_){
            for(@prime){
                $_=~s/$i//;
            }
        }
    }
}
for(@prime){
    print "$_\n";
}