# forward-declared prototype
sub hexify ($);

my $hex = hexify 160;
print $hex;

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