計算してみた
初めてのPerl2章を読んだ（練習問題除く）