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