perl_benchmark_array_hash_write.pl

#!/usr/bin/perl

use strict;
use warnings;

use Benchmark qw(cmpthese);

cmpthese(
    -5,
    {
        array => sub {
            my @arr;

            foreach my $i (1..500) {
                $arr[$i] = $i;
            }
        },
        hash => sub {
            my %h;

            foreach my $i (1..500) {
                $h{$i} = $i;
            }
        },
    },
);
__END__
$ perl perl_benchmark_array_hash_write.pl
         Rate  hash array
hash   3613/s    --  -87%
array 27587/s  664%    --