#!/usr/bin/perl -w
use strict;

my %dispatch = ( 'immunizations' => \&immunizations,
                 'allergies'     => \&allergies);

sub immunizations
{
   print "inside immunizations\n";
}

sub allergies
{
}

$dispatch{'immunizations'}->();
#prints: inside immunizations