my ($MAX,@comp)=100;
my @prime=grep {my $i=$_; !$comp[$i] && map $comp[$i*$_]++, 1..$MAX/$i} 2..$MAX;