すいません
print "　<TR>$value\n";
この行の$valueってのはデバッグ用です　消し忘れました