learning perl chap 3
3章の練習問題を解いた