perl chapter5_2.pl