use warnings;
use strict;

use Benchmark;
my $start = new Benchmark;

my $size = 10000000;
my %hash;
keys(%hash) = $size;

for my $i (1..$size) {
    my $key = "key$i";
    $hash{$key} = $key;
}

my $end = new Benchmark;
my $diff = timediff ($end, $start);
print "The code ran for \n",timestr($diff),"\n";