perl -e ' for $i (1..100) {$h{$e++}=1; print scalar(%h),"\n" }'