use strict;
use warnings;

my @indicies = qw(8 1 9);
my $code;

$code |= 1 << $_ for @indicies;

printf "0x%02X 0x%02X\n", $code >> 8, $code & 0xFF;