my %h = (
  func1 => sub { 
    my $value = shift @_;
    return sprintf ("0x%x", $value) 
  },
  func2 => sub { 
    my $value = shift @_;
    return sprintf ("%b", $value); 
},
  func3 => sub { 
    my $value = shift @_;
    return sprintf ("%d", $value); 
},
);