my @row = unpack("FFFFL", $tchandle->get($curdate));