So let me get this right. You have an algorithm in another language which you're not going to show us, you have some perl code which doesn't produce the same results, and you expect us to fix your perl code to match this unknown algorithm. Yeah right.