I tried to look back where your $listb is coming from. (needs a better name BTW - I've no idea what it is for) and it got confusing pretty quick.

I suggest regenerating your indentation with perltidy, and taking a closer look at @content and the repeated ties. I'm not familiar with tie, but I'd guess that you're making a giant knot out of all your gui elements there.