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

my $search = $ARGV[0]||'perlaceo';
my $file = $ARGV[1]||'enwiktionary-latest-all-titles-in-ns0';
die unless $file;
my @lines;
open my $fh,'<',$file or die "Unable to open $file";
@lines = <$fh>;
print "\nFILE: $file\nARRAY ELEMENTS: ",
      scalar @lines," (read in ",(time - $^T),
      " seconds).\n\n";

my $iterations = -3;
################################################################################
my $name1 = "Plain array lookup"; #
my $code1 = <<'END_CODE1';
     for(@lines){ last if $_ eq $search }
END_CODE1
################################################################################
my $name2 = "List::Util any    "; #
my $code2 = <<'END_CODE2';
     any { $_ eq $search } @lines;
END_CODE2
################################################################################
my $name3 = "smart match ~~    "; #
my $code3 = <<'END_CODE3';
   $search ~~ @lines;
END_CODE3
################################################################################
my $results = timethese($iterations, {  $name1 => $code1,
                                        $name2 => $code2,
                                        $name3 => $code3
                                      } ) ;
print "\n\n";
cmpthese( $results );