#!/usr/bin/perl
use strict;

use Time::HiRes qw(gettimeofday tv_interval);
use constant COUNT => 20000000;

my $t;

$t = [gettimeofday];

for ( my $i = 0 ; $i < COUNT ; $i++ ) {
    my $o = [];
    $o->[0] = 10;
    $o->[20] = 11;
}

print "Arrays: ", tv_interval( $t, [gettimeofday] ), "\n";

$t = [gettimeofday];


for ( my $i = 0 ; $i < COUNT ; $i++ ) {
    my $o = {};	
    $o->{a} = 10;
    $o->{b} = 11;
}

print "Hashes: ", tv_interval( $t, [gettimeofday] ), "\n";



1;