#!perl
# Name: Add keys to a hash
# Require: 4
# Desc:
#
require 'benchlib.pl';
$key = "abc";
for (1..1000) {
$hash{$key} = 1;
$key++;
}
&runtest(10, <<'ENDTEST');
$key = "abc";
$hash{$key} = 1;
$hash{$key} = 2;
$hash{$key} = 3;
$hash{$key} = 4;
$hash{$key} = 5;
$key++;
$hash{$key} = 1;
$hash{$key} = 2;
$hash{$key} = 3;
$hash{$key} = 4;
$hash{$key} = 5;
$key++;
$hash{$key} = 1;
$hash{$key} = 2;
$hash{$key} = 3;
$hash{$key} = 4;
$hash{$key} = 5;
$key++;
ENDTEST