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