chromatic wrote:

> my $dec_number = sprintf "%lx", $number;
[download]

Aren't your variables named backwards here? This sprintf format does decimal->hex translation; your variables make it look like hex->decimal translation.