$start=time;

while (<>) {
  chomp;
  $testhash{$_}="x";

  $i++;
  if (0==($i % 100)) {
    print "$i  ";
    print (time-$start);
    print " ";
    $_ = scalar(%testhash);
    ($used,$total) = split '/';
    print "$used  $total\n";
  }
}


#  time ./perlhack-5.8.0 4 0 > out-5.8.0-000
#  time ./perlhack-5.6.1 4 0 > out-5.6.1-000

# plot 'perl5.8.0-time' using $1:$2