I don't even see the originally reported problem:

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'
[download]

What output were you expecting from the original input?

Update: And for good measure:

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