use strict;
use warnings;

my @prime = (2);
for my $i(3..100){
    push @prime, $i;
    for(@prime){
        next if ! length $_;
        next if int($i/$_)!=($i/$_) or $i==$_;
        $_=~s/$i// for @prime;
    }
}

print join "\n", grep {length $_} @prime;