use strict;
use warnings;

use Benchmark qw(:all);

my $limit = 1_000;

sub do_it_tcarmeli {
    my %do_it_tcarmeli;
    foreach my $i ( 0 .. $limit ) {
        $do_it_tcarmeli{$i} = 1;
    }
    return;
}

my %do_it_liverpole;

sub do_it_liverpole {
    foreach my $i ( 0 .. $limit ) {
        $do_it_liverpole{$i} = 1;
    }
    return;
}

cmpthese(
    -10,
    {
        do_it_tcarmeli  => \&do_it_tcarmeli,
        do_it_liverpole => \&do_it_liverpole,
    }
);