or skip the dispatch hash altogether and instead dispatch by name:

use strict;
use warnings;

for my $name (qw(Title Description Object Properties Value Wibble)) {
    my $code = main->can("do$name");
    
    if (!$code) {
        print "!!! Missing handler for '$name'\n";
        next;
    }
    
    $code->();
}

    
sub doTitle {
    print "Title handler\n"
}
    
sub doDescription {
    print "Description handler\n"
}
    
sub doObject {
    print "Object handler\n"
}
    
sub doProperties {
    print "Properties handler\n"
}
    
sub doValue {
    print "Value handler\n"
}
[download]

Prints:

Title handler
Description handler
Object handler
Properties handler
Value handler
!!! Missing handler for 'Wibble'
[download]

Now if you need a new handler all you do is add the sub.