#!/usr/bin/perl

use warnings;
use strict;
use List::Util 'first';
use Benchmark qw(:hireswallclock cmpthese);

sub grap (&@) {

    my ($sub,@list) = @_;

    foreach (@list) {
        return 1 if ($sub->($_));
    }
    return;
}

sub grap2 (&@) {

    my $sub = shift;

    foreach (@_) {
        return 1 if ($sub->($_));
    }
    return;
}

sub grap3 (&\@) {

    my $sub = shift;

    foreach (@$_[0]) {
        return 1 if ($sub->($_));
    }
    return;
}

my $count = 10000;
my @data = (
            [ start  => [ (0) x $count ] ],
            [ middle => [ (0) x $count ] ],
            [ end    => [ (0) x $count ] ],
           );

$data[0][1][0] = 1;
$data[1][1][$count/2 - 1] = 1;
$data[2][1][-1] = 1;

foreach my $i (@data) {
    my $name = $i->[0];
    my $array = $i->[1];
    print uc "\n$name:\n";
    cmpthese (-1, #2_000_000,
              {
                  'grap'  => sub { my $result = grap  { $_ } @$array }
+,
                  'grap2' => sub { my $result = grap2 { $_ } @$array }
+,
                  'grap3' => sub { my $result = grap2 { $_ } @$array }
+,
                  'grep'  => sub { my $result = grep  { $_ } @$array }
+,
                  'first' => sub { my $result = first { $_ } @$array }
+,
                  'foreach' => sub {
                                my $good;
                                foreach (@$array) {
                                    ($good = 1, last) if $_
                                }
                  }
              })
}
[download]