my (@primes, $i);
for(@primes=(2), $i=3 ;scalar(@primes) < 1000 ;$i++)
{foreach my $p (@primes){
if ($i % $p == 0){
           $i++
}
    }
    push @primes, $i;
}

print ("@primes");