my %h = (
    decimalhex => sub{return sprintf("0x%x", shift)},
    decimalbinary => sub{sprintf("%b", shift)},
    hexdecimal => sub{return sprintf("%d", shift)},
);

my $var = <STDIN>;

print $h{decimalhex}($var), "\n";
print $h{decimalbinary}($var), "\n";
print $h{hexdecimal}($var), "\n";