Added Perl solution for problem 1