perlで変数のスペルミス．
use strict してませんでしたよ，ええ．