If this is your first encounter with the Perl scripting language, my suggestion would be for you to take a look at some of the Perl books for beginners. At the very least take a look around the www.perldoc.com site. There you should be able to learn the basics (and later the extra stuff) of the language you are attempting to use. I learnt Perl over one weekend the first time I had to use it for a consulting project.

Alright, enough of the preaching.. onto the question at hand. It would be much helpful if you provided us with some sample input data. I'm still not sure how it looks to begin with.

As for the code you've submitted here, it's not quite valid Perl. For example, this

$num / $tnum = $div;
[download]

will simply not work. What are you trying to do here? If my assumption is correct and you are trying to simply store the result of deviding $num by $tnum in the $div variable, then you'll have put this line as follows:

$div = $num / $tnum;
[download]

Also, some of your lines are missing the ';'..

_____________________

# Under Construction
[download]