($xh,$yh,$zh) = unpack("x31A8x1A8A8",$hline);