package Foo;

my %hidden = (
              bar => sub { print "Bar\n"; },
              ...
             );

sub something_public {
  my( $baz, $quux ) = @_;

  return $hidden{bar}->( $baz + 5, reverse $quux );
}