Uh... what does that list have to do with the logic of your code? What's the relationship? I don't see any.

Also, maybe you should show a little more of your code. How is $_ getting set? That list definition isn't perl code, so...