Welcome to Perlmonks.

Please read Writeup Formatting Tips. You have a far higher chance of getting good help from the site if you take the time to format your code so that we can read it.