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