#!/usr/bin/perl
use strict;
use warnings;
use Benchmark 'cmpthese';

my %dispatch = map {$_ => sub {my $res = "I found it"}} 1 .. <TMPL_VAR NAME="CHAIN_LENGTH">;
<TMPL_IF NAME="UNMATCHED_ITEMS">
$dispatch{default} = sub {my $res = "I did not find it"};
</TMPL_IF>

my @find;
<TMPL_LOOP NAME=BUILD_FIND>
push @find, <TMPL_VAR NAME=FIND>;
</TMPL_LOOP>

cmpthese(-10, {
    dispatch => sub {
        for (@find) {
            <TMPL_IF NAME="UNMATCHED_ITEMS">
            if (exists $dispatch{$_}) {
                $dispatch{$_}->();
            }
            else {
                $dispatch{default}->();
            }
            <TMPL_ELSE>
            $dispatch{$_}->();
            </TMPL_IF>
        }
    },
    if_else => sub {
        for (@find) {
            if ($_ eq '1') {
                my $res = "I found it";
            }
            <TMPL_LOOP NAME=CHAIN>
            elsif($_ eq '<TMPL_VAR NAME=ITEM>') {
                my $res = "I found it";
            }
            </TMPL_LOOP>
            <TMPL_IF NAME="UNMATCHED_ITEMS">
            else {
                my $res = "I did not find it";
            }
            </TMPL_IF>
        }
    },
});