my %dispatch = (
    test   => sub { print "test\n"  },
    hello  => sub { print "hello\n" },
);

my $name = 'test';
$dispatch{$name}->();

$name = 'hello';
$dispatch{$name}->();