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