$data = pack "C*", map { $_ >> 8 } unpack "S*", $raw;