if ( exists $Subs{$q->param('do')}) {
    $Subs{$q->param('do')}->();
} else {
    $Subs{$q->param('do')}->(); 
}