関係ないが過去の回数を取得するすくりぷと：

@f = <>;
for $a ( 95..97 ){
　for $b ( '01'..'12' ){
　　print "$a-$b ", scalar( grep /$a-$b/, @f ), "?n";
　}
}


あぁ，５秒でこれくらいの仕事ができるって，perl って便利 (;_;) 　'01'..'12' が '1' '2' でなく '01' '02' になるってところと， scalar grep で /$a-$b/ がマッチした回数が得られるってところに， 解る人だけ感心してくれ (;_;)　そして perl を使え (;_;)