That code is too long and contains too many distractions to make it easy to see what is going on (or going wrong!).

You should post a shortened version of your code that demonstrates your problem, clearly explaining what you expect to see and what unexpected results you get.

Also, it would make it easier for us to follow your code if you used a consistant indentation style. Perhaps you'd consider putting your code thru perltidy before posting it here.