#!/usr/bin/perl

use strict;
use warnings;

sub fetch_dispatch{ 

    my $dispatch = {
            name => sub { return "name = this"; },
            val => sub { return "val = that"; },
           };

    return $dispatch; 
}

my $dt = fetch_dispatch();

print $dt->{name}(), ': ', $dt->{val}(), "\n";