perlの練習