You still haven't understood, or are ignoring, the plethora of advice you were given in To read files from two dir that amounts to:

• Always use strictures (use strict; use warnings;)
• Write a snippet of code that runs demonstrating the issue
• Show us what the code prints for you
• Tell us what you expected
• Show us any error messages generated

We aren't interested in distracting problem domain specific identifiers and other cruft that is not related to the issue at hand. Write some code that demonstrates the problem so it is trivial for us to see it too, and so that you can easily play around with the code to see what works and what breaks. With Perl it is trivial to write a little test script and it is a really good way to explore an issue without having all the baggage of the original script you are trying to fix. This is really useful even if you have no intention of asking anyone else for help. It is vital when you do intend to ask for help so that you don't waste our time and you don't waste your own time.

Remember: being truly lazy is getting the job done with the least overall effort. Often that means more effort up front to save a lot of effort later.