Perl入学式で書いたコード