This may not be a question all about Perl

Not only is it not "all about Perl" it is not at all about Perl.

Do you care to share with us the code you've written so far? Maybe we can help you find your mistakes...

-sauoq
"My two cents aren't worth a dime.";