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

##</code><code>##

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