#!/usr/bin/env perl
use warnings;
use strict;
use ntheory;
use bigint;

my $n=12;
my $c=1;
my $k=10;
my $l=10;
my $p=100;
my @candidates = (0..$l);
my $remove;

sieve2();

sub sieve2 {
  forprimes { $p=$_;
    foreach my $i (0..$l) {
    if ( ($n*($k+$i)+$c)%$p==0)
{
      $remove=$i;
      @candidates = grep {!/$remove/} @candidates;
      }
    }
  }
  print join("\n",@candidates),"\n";
}

sieve2();

##</code><code>##

C:\Users\Perl Scripts> sieve2.pl
Use of uninitialized value in new at C:\Users\Paul\Documents\Perl Scripts\question.pl line 20.
Use of uninitialized value in new at C:\Users\Paul\Documents\Perl Scripts\question.pl line 20.
Use of uninitialized value in new at C:\Users\Paul\Documents\Perl Scripts\question.pl line 20.
Use of uninitialized value in new at C:\Users\Paul\Documents\Perl Scripts\question.pl line 20.
Use of uninitialized value in new at C:\Users\Paul\Documents\Perl Scripts\question.pl line 20.
Use of uninitialized value in new at C:\Users\Paul\Documents\Perl Scripts\question.pl line 20.
Use of uninitialized value in new at C:\Users\Paul\Documents\Perl Scripts\question.pl line 20.
Use of uninitialized value in new at C:\Users\Paul\Documents\Perl Scripts\question.pl line 20.
Use of uninitialized value in new at C:\Users\Paul\Documents\Perl Scripts\question.pl line 20.
Use of uninitialized value in new at C:\Users\Paul\Documents\Perl Scripts\question.pl line 20.
Use of uninitialized value in new at C:\Users\Paul\Documents\Perl Scripts\question.pl line 20.
0
1
2
3
4
5
6
7
8
9
10
Can't call method "forprimes" without a package or object reference at C:\Users\Paul\Documents\Perl Scripts\question.pl line 18.

##</code><code>##

3
5
6
9
10