>>285
my($a,$b,$c) = (0, 0, 0);
my($a,$b,$c) = (0) x 3;

tu-ka、初期値がどうしても必要になるところとか、無駄に変数宣言していることを改訂してみるとか。。。