#!/usr/bin/perl

use warnings;
use strict;

use Time::HiRes qw(time);

my %h;
foreach my $size (100_000, 200_000, 400_000, 800_000, 1_600_000, 3_200_000)
{
  my %h;
  my($start,$end);

  # Test insert times
  $start = time;
  foreach my $i (1..$size)
  {
    $h{$i} = $i;
  }
  $end = time;
  my $insert_time = $end - $start;

  # Now test lookup times
  $start = time;
  foreach my $i (1..$size)
  {
    $h{$i} == $i
      or die "what the hell?";
  }
  $end = time;
  my $lookup_time = $end - $start;


  printf "%10d: %5.3f inserts/sec, %5.3f lookups/sec\n",
         $size, $size/$insert_time, $size/$lookup_time;

}

##</code><code>##

    100000: 446368.754 inserts/sec, 1050330.051 lookups/sec
    200000: 424977.633 inserts/sec, 821176.759 lookups/sec
    400000: 398651.394 inserts/sec, 805369.896 lookups/sec
    800000: 399463.754 inserts/sec, 787853.768 lookups/sec
   1600000: 390381.775 inserts/sec, 766870.015 lookups/sec
   3200000: 377860.715 inserts/sec, 720909.739 lookups/sec