Perl Programming/Exercise 4 Answers