#!/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_start' => sub {
        my $found = 0;
        my @list = grep(0, @start);
        $found = 1 if scalar @list;
    },
    'foreach_start' => sub {
        my $found = 0;
        foreach (@start) {
            $_ == 0 and $found = 1 and last;
        }
    },
    'hash_start' => sub {
        my $found = 0;
        my %hash = map { $_ => undef } @start;
        $found = 1 if exists $hash{0};
    },

    'grep_end' => sub {
        my $found = 0;
        my @list = grep(0, @end);
        $found = 1 if scalar @list;
    },
    'foreach_end' => sub {
        my $found = 0;
        foreach (@end) {
            $_ == 0 and $found = 1 and last;
        }
    },
    'hash_end' => sub {
        my $found = 0;
        my %hash = map { $_ => undef } @end;
        $found = 1 if exists $hash{0};
    },

    'grep_middle' => sub {
        my $found = 0;
        my @list = grep(0, @middle);
        $found = 1 if scalar @list;
    },
    '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};
    }
});