Work on pure perl factoring