#!/usr/bin/env perl
use warnings;
use strict;

sub somefunc { print "Hello, $_[0]\n" }

my %dispatch = (
	foo => \&somefunc,
	bar => sub { print "World$_[0]\n" },
);

$dispatch{foo}->("Perl");
$dispatch{bar}->("!");

##</code><code>##

#!/usr/bin/env python3

def somefunc(x):
	print("Hello, "+x)

dispatch = {
	'foo': somefunc,
	'bar': lambda x: print("World"+x),
}

dispatch["foo"]("Perl")
dispatch["bar"]("!")