Fix Broken Perl Script -- Easy Money for You!

I had a Perl script made for me last year and it worked great. Now, it does not work as it should. Attached is the script and supporting files. [login to view URL] - File that contains the emails that should be found. search_db [login to view URL] - The script /data/ - Folder all csv files should be in /data/[login to view URL] - One of the csv files. The script is built so that it reads all csv files within the /data/ folder How it Works The script reads the [login to view URL] file that is in the same (root) directory as it. It then looks for CSV files within the /data/ directory. It looks for the column name that is in the CSV files (ie: Email) based on the column name in cell A1 of the [login to view URL] file. (This means that the [login to view URL] file needs to have the same A1 name that is in the CSV files that are in /data/ When it finds a match, it adds the entire row of data (all columns) into a new file called results.csv. This worked in the past flawlessly. Now, it only adds the column row to the [login to view URL] file. I think this will be a quick fix for someone who knows Perl. If you go ahead and fix it before I select a bid, LET ME KNOW as I will place a higher priory on completed work along with a good price. I am leaving for dinner but will hire someone when I return. If you complete it before then, please let me know as well as providing your price so that I can quickly hire you and get you paid. Thank you Steve