my $default_action = 'home';
my $action = $cgi->param('a') || '';

# is $action recognized?
my $executor = $dispatch{$action} ||
               $dispatch{$default_action};
&$executor();