Don't speak in terms of your code (which is broken), speak in terms of your inputs (of which you haven't even shown a sample).

I might find an answer to some of my questions in what you posted if I ponder long enough, but I'm more likely to come up with more questions than answers. Why do you think you can express yourself better in Perl than in English.

In short, I'm still waiting for answers to my questions. Or feel free to start over while avoiding posting code.