What's wrong with this code?

1. It is not enclosed in code tags, so we can't read it.
2. It appears to have line numbers at the beginning of the concatenated lines ...

Try :set nonu in your vim, and then paste it back here inside code tags.

See http://www.perlmonks.com/?node=PerlMonks%20FAQ#Posting-on-PerlMonks for more info ...

Thanks!