Perhaps the best advice is to trim your sample code down to about 10 lines that demonstrate the problem. Over 300 lines of code, mostly completely irrelevant to the issue, is not a sussccint distillation of the problem.

Most likely you have a variable that is not the reference you think it is. Check perlref. It may help to read I know what I mean. Why don't you? while you are at it.