my $msb = $decimal_number & 0x8000;