Could you please help me solve this two problems? Here is my source:

Far too many problems to deal with all of them in an amount of time that could be reasonable for me now. Just some hints:

• "PERL";
• no strict - too bad!
• weird style;
• "old style", unchecked opens;
• no proper iteration over the lines of a file nor slurping nor... anything!

Please do not take it as a personal offense, but it seems to me that you're trying to do something in Perl without even having a clue about the very basics of the language. All in all you may well be blindingly gluing together fragments found who know where. I recommend you get an introductory book or tutorial instead.