my $hex_num = '0x' . sprintf('%x', $dec_num);