compare_push_array_vs_push_hash.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Benchmark qw( timethese cmpthese ) ;

my $r = timethese( -10, {
  val => sub {
    my @arr;
    push @arr, $_ for (1..10000);
  },
  hash => sub {
    my @arr;
    push @arr, {x=>1, y=>$_} for (1..10000);
  },
} );
cmpthese $r;

output.txt

Benchmark: running hash, val for at least 10 CPU seconds...
      hash: 11 wallclock secs (10.72 usr +  0.01 sys = 10.73 CPU) @ 180.15/s (n=1933)
       val: 11 wallclock secs (10.49 usr +  0.00 sys = 10.49 CPU) @ 1152.91/s (n=12094)
       Rate hash  val
hash  180/s   -- -84%
val  1153/s 540%   --