perl exercise with perl doc