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