my $action;

for my $dispatch (@$dispatch_tables) {
    my $regex = $dispatch->{regex};
    if ($input =~ $regex) {
        $action = $dispatch->{action};
        last;
    }
}

die("No match\n") if !$action;
$action->($input);