んー、内部で誰か（多分DBI）がuse utf8してるからlengthへの引数を
utf8なやつだと解釈しようとして失敗してる（eucなんだから当然）からなわけで。
だからlengthに渡すものをutf8に変換しておこう、と言う改造をしてみたんだが。
納得いかないならこんなのとか。
{
no utf8;
$\ ="\n";
while ($_ = ....){
print length($_->[0]);
}
}