my $a6 = 0b10100101;
my $a7 = $a6 | 0b0000010;
printf "dec: $a7, hex: %x\n",$a7