All,

Please don't forget to consider the 'victim program' source

$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";
  }
}
[download]

Update: Changed grammar of two sentences to sound less like a neanderthal

Kristofer Hoch

Si vos can lego is, vos es super erudio