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