$ time perl pm1194192.pl 18 54 27000 29474100 3217491003
Number: 18 , Prime_Factors: => 2 3 3
Number: 54 , Prime_Factors: => 2 3 3 3
Number: 27000 , Prime_Factors: => 2 2 2 3 3 3 5 5 5
Number: 29474100 , Prime_Factors: => 2 2 3 3 5 5 32749
Number: 3217491003 , Prime_Factors: => 3 32749 32749

real	0m0.010s
user	0m0.008s
sys	0m0.000s

$ time perl pm1194192.pl --sqrt 18 54 27000 29474100 3217491003
Number: 18 , Prime_Factors: => 2 3 3
Number: 54 , Prime_Factors: => 2 3 3 3
Number: 27000 , Prime_Factors: => 2 2 2 3 3 3 5 5 5
Number: 29474100 , Prime_Factors: => 2 2 3 3 5 5 32749
Number: 3217491003 , Prime_Factors: => 3 32749 32749

real	0m0.008s
user	0m0.004s
sys	0m0.000s