A big piece of advice.

Pick a consistent indentation style and use it. The exact style doesn't matter so much, so long as you are consistent, the indentation makes your logical structure obvious at a glance, and your indent is in the range 2-4 characters per level of logical nesting. For instance run your script through perltidy and look at the output.

As it stands your code is indented semi-randomly, and as a result it would be much harder to work with than it should be.