my ($lb, $hb) = unpack("H[2]H[2]", pack("s", $num * 256));