in reply to Re: How to store a bigger number in 1 byte
in thread How to store a bigger number in 1 byte

or also using pack: 
@dataIn[20, 21] = unpack(CC => pack(n => $var));

[download]

In Section Seekers of Perl Wisdom