use Benchmark qw(:all);

sub in2
{
    my $q = shift;

    return { map({ ($_ => 1); } @_) }->{$q};
}

sub in1 {
    my $val = shift;

    $val eq $_ and return 1 for @_;
    return 0;
}

sub in3
{
    my $q = shift;

    grep({ $q eq $_ } @_);
}

use Set::Scalar;

sub in4
{
    my $q = shift;

   Set::Scalar->new(@_)->has($q);
}

use List::Util qw(first);
sub in5
{
    my $q = shift;
    first { $q eq $_ } @_;
}

sub in6
{
    my $q = shift;
    grep /^$q$/, @_;
}

my @list1 = ('a', 'b', 'c', 'd');
my @list2 = ('d', 'b', 'c', 'd');

print '1 ', in1(@list1), ' ', in1(@list2), "\n";
print '2 ', in2(@list1), ' ', in2(@list2), "\n";
print '3 ', in3(@list1), ' ', in3(@list2), "\n";
print '4 ', in4(@list1), ' ', in4(@list2), "\n";
print '5 ', in5(@list1), ' ', in5(@list2), "\n";
print '6 ', in6(@list1), ' ', in6(@list2), "\n";

cmpthese(-1,{ 'ambrus' => \&in1,
              'osunderdog' => \&in4,
              'rnahi' => \&in5,
              'gam3' => \&in2,
              'EvanCarroll' => \&in6,
              'Aristotle' => \&in3});

__END__
[download]