ref:Darkness:がんばってますよ？ - livedoor Blog（ブログ） 勝手に人のコードを添削。 sub get_chisquare($$$$) { my ( $s_real, $s_prediction, $b_real, $b_prediction ) = @_; my $sum = $s_real + $s_prediction + $b_real + $b_prediction; my @Data …