Welcome to The Monastery A1 Transcendence,

Before your program is wheeled into the theater, here is the first wisdom to live by using perl!
Always use these two lines in your Perl Program

use warnings;
use strict;
[download]

Secondly, You might have to give a sample of your input data and what you are expecting.

Please check this How do I post a question effectively?