Thanks Kcott! I thought the output that I am getting got something to do with how I code the $ratio1 and I might be missing something since I split the data and have no idea how to make into the output I want. I will look through your code structure and try to make sense of it and work my way around. I'll reply here again if I encounter problems.

I am learning Perl as I go along and this forum has been very helpful in my learning process :) Thanks guys...it has been very stimulating to read the suggestions and advices from you!