@hd = unpack 'h*', $rec;
@floats = unpack 'f*', $rec;