Perl Programming/Exercise 7