in reply to Perl script performance help

I have a single observation for you: 34 * xxx can never produce xxx43.

Because 4 * any digit will never produce a 3 as the last digit of the result.

That single observation will allow you to cut your runtime by (several) orders of magnitude.

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority". I knew I was on the right track :)
In the absence of evidence, opinion is indistinguishable from prejudice.

In Section Seekers of Perl Wisdom