Something like this should work:

my @vals = (8, 1, 9);

my $val;
$val |= 2**$_ for @vals;

my @bytes = unpack "CC", pack("n", $val);

printf "0x%02x 0x%02x\n", @bytes;
[download]