Ever looked at the Computer Language Benchmarks Game, (formerly known as the Great Language Shootout)?

Perl has some pretty healthy competition there at the moment. It also occurs to me that there's probably some places that Perl's scores could be improved. The biggest one is in the chameneos-redux script right now - the Perl version runs the worst out of any language : 1,626 times slower than the C baseline solution!

There are some restrictions on how the programs can be made and optimized, and there is Perl's interpreted runtime penalty, but 1,626 times? There's got to be something that can get the runtime of this program way down.

Taking a look at the source code and the challenge, what do you think could be done to reduce this runtime speed?