You're asking for decimal->hex conversion, right? I'd go with sprintf if I were you. Here's your all-purpose function:

# forward-declared prototype
sub hexify ($);

my $hex = hexify 160;
print $hex;

sub hexify ($) {
    sprintf "%1x", $_[0];
}
[download]