P2.pl

Added Problem 2 in Perl