perlmonks is not a "we rewrite your code" service.

If there is anything in particular that you don't like about the code, tell us so.

And tell us what you tried, and why you are not satisfied with it.