#!/usr/bin/env perl

use strict;
use warnings;

use Array::Contains;
use List::Util 'any';
use Benchmark 'cmpthese';

my @base = 'A' .. 'Z';
my @search = map +($_, lc), @base;

print "\@base[@base]\n";
print "\@search[@search]\n";

cmpthese 0 => {
    lua => \&lua,
    acc => \&acc,
};

sub lua {
    for my $x (@search) {
        my $bool = any { $_ eq $x } @base;
    }

    return;
}

sub acc {
    for my $x (@search) {
        my $bool = contains($x, \@base);
    }

    return;
}