use strict;
use warnings;
use Benchmark;
use List::Util qw(shuffle);

my $count=5000000;

my @existing_indexes    = ( 5,6,8..53,62..106);
my @indexes = (0..200);

my @shuffled_indexes = shuffle @indexes;

my %test_hash;
my @test_array;

@test_array[ @existing_indexes ] = ();
@test_hash{  @existing_indexes } = ();



Benchmark::cmpthese($count, {
    arrayLookup => q{
        my $val = &arrayLookup( \@test_array, \@indexes );
    },
    hashLookup  => q{
        my $val = &hashLookup(  \%test_hash,  \@indexes );
    },
    shuffled_arrayLookup => q{
        my $val = &arrayLookup( \@test_array, \@shuffled_indexes );
    },
    shuffled_hashLookup  => q{
        my $val = &hashLookup(  \%test_hash, \@shuffled_indexes )
    },
} );




sub arrayLookup {
    my $array   = shift;
    my $indexes = shift;

    my @results = map {
        exists $array->[$_];
    } @$indexes;
        
    return \@results;
}

sub hashLookup {
    my $hash = shift;
    my $keys = shift;

    my @results = map {
        exists $hash->{$_};
    } @$keys;
        
    return \@results;
}