#!/usr/bin/perl -Tw

use strict;
use Benchmark;

my @array;
foreach (1..1000) {
    push @array, 1 + int rand 199;
}
my @start = (0, @array);
my @end = (@array, 0);
my @middle = @array;
splice(@middle, 500, 0, 0);

timethese(1000, {
    'grep_middle' => sub {
        my $found = 0;
        grep {$_ == 0 and $found = 1 and last} @middle;
    },
    'foreach_middle' => sub {
        my $found = 0;
        foreach (@middle) {
            $_ == 0 and $found = 1 and last;
        }
    },
    'hash_middle' => sub {
        my $found = 0;
        my %hash = map { $_ => undef } @middle;
        $found = 1 if exists $hash{0};
    }
});