warn "row=$row col=$col row->[col]=", $row->[$col], ";\n";