#!/usr/bin/env perl

use strict;
use warnings;
use List::Util qw(any);
use Benchmark qw(cmpthese);

my @numlist = map {int(rand(100_000))} 1..10_000;

my %numlist_table;
@numlist_table{@numlist} = ();

my $numlist_re = do {
    my $numlist_str = join('|', @numlist);
    qr/^(?:$numlist_str)$/;
};

my $target = 42;

sub sgrep {
    return grep {$target == $_} @numlist;
}

sub table {
    return exists $numlist_table{$target};
}

sub alternation {
    return $target =~ m/$numlist_re/;
}

sub sany {
    return any {$target == $_} @numlist;
}

cmpthese(-3, {
    grep            => \&sgrep,
    table           => \&table,
    alternation     => \&alternation,
    any             => \&sany,
});