Hello and welcome to the PerlMonks,
One thing I would like to suggest is maybe next time do not post the commented out code that we do not need to use for trying your script. Just a short, easy to use exerpt is enough :)
What are the purpose of the whole numbers at the beginning of each line in the files? Are those the line numbers?