my $dec  = sprintf hex('0x10000a0f'), "\n";

##</code><code>##

my $dec  = sprintf hex($hex_val), "\n";