use warnings;
use strict;
use feature 'say';

my $num = 1023; # 0x03ff
my ($b1, $b2);