perl_benchmark_array_hash_read_2.pl

#!/usr/bin/perl

use strict;
use warnings;

use Benchmark qw(cmpthese);

my @indexes;
foreach (1..1000) {
    my $r = int(rand(10_000));
    push @indexes, $r;
}

my @arr;

foreach my $i (@indexes) {
    $arr[$i] = $i;
}

my %h;

foreach my $i (@indexes) {
    $h{$i} = $i;
}

my $tmp;

cmpthese(
    -5,
    {
        array => sub {
            foreach my $i (@indexes) {
                $tmp = $arr[$i];
            }
        },
        hash => sub {
            foreach my $i (@indexes) {
                $tmp = $h{$i};
            }
        },
    },
);
__END__
$ perl perl_benchmark_array_hash_read_2.pl
         Rate  hash array
hash  10711/s    --  -44%
array 18977/s   77%    --