#! /usr/bin/perl
use strict;

# Build the dataset
my $iterations = 100000;
my $range = 10000;
my $num_keys = 1000;

my %hash = map { "a_" . int(rand($range)) => 0 } (0..$num_keys);
my @array = sort keys %hash;

my $cnt_array=0;
my $cnt_hash=0;

# look for random array entries
my $start = time;
for (0..$iterations) {
        my $key = "a_" . int(rand($range));
        for (0..@array) {
                ++$cnt_array if $key eq $array[$_];
        }
}
my $ttl = time - $start;
print "Array search took $ttl seconds, found $cnt_array\n";

# look for random hash entries
$start = time;
for (0..$iterations) {
        my $key = "a_" . int(rand($range));
        ++$cnt_hash if defined $hash{$key};
}
$ttl = time - $start;
print "Hash search took $ttl seconds, found $cnt_hash\n";