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