my $hex = sprintf '%02x', $dec;