my $hex = sprintf("%x", $dec);