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