So, what have you tried? Showing code, with a good description of what you're trying to do (nicely done, above) and what you're getting that's different gets pretty fast answers around here, most of the time.

Or are you at a point where you haven't really used Perl yet for much of anything, need a nudge in the right direction, and don't really have any code to show?