c:\@Work\Perl\monks>perl -wMstrict -le
"my $binaddr = 100010;
 print qq{'$binaddr'};
 ;;
 my $hexaddr = sprintf '%x', oct qq{0b$binaddr};
 print qq{'$hexaddr'};
"
'100010'
'22'

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -le
"my %h = (B => 100010);
 ;;
 my $hexaddr = sprintf '%x', oct qq{0b$h{B}};
 print qq{'$hexaddr'};
"
'22'