Once again we're going to have to ask.

What was it SUPPOSED to do? This is a variation on the code you asked about earlier in the week, what was wrong with all the answers you got last time you asked it?

You need to start with the basics, and figure out the difference between the different variable types. Start with perlvar.