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

my $sub_name = 'do_this';
my %dispatch_table = (do_this => \&do_this,
                      do_that => \&do_that,
                      );


print $dispatch_table{$sub_name}("Fred");

sub do_this {
   my $var = shift;
   return "My name is $var";
}

sub do_that {
   my $var = shift;
   return "My name is not $var";
}
__END__
My name is Fred