Select Code to Download

use Math::BigInt ();

...

@c = grep { $_ != 1 } @c;
@d = grep { $_ != 1 } @d;

use Math::BigInt       ();
use Math::Big::Factors ();
...

@c = grep { $_ != 1 } @c;
@d = grep { $_ != 1 } @d;