Perl入学式#4 宿題の答え合わせ