個人的なperl練習用