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

my $count=5000000;

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

our @shuffled_indexes = shuffle @indexes;

our %test_hash;
our @test_array;

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



Benchmark::cmpthese( -1, {
    AviaSub => q{
        my $val = &arrayLookup( \@test_array, \@indexes );
    },
    HviaSub  => q{
        my $val = &hashLookup(  \%test_hash,  \@indexes );
    },
    AviaSubS => q{
        my $val = &arrayLookup( \@test_array, \@shuffled_indexes );
    },
    HviaSubS  => q{
        my $val = &hashLookup(  \%test_hash, \@shuffled_indexes )
    },
    Adirect  => q{
        my $count = 0;
        exists $test_array[ $_ ] and ++$count for @indexes;
    },
    Hdirect  => q{
        my $count = 0;
        exists $test_hash{ $_ } and ++$count for @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;
}