Perl Programming/Exercise 6