Help for this page

Select Code to Download

Select or download this

>perl -le "push(@a, bless({}, sprintf('MyClass%04d',$i++)))
   foreach (1..4001); print(scalar(@a));"
...
>perl -le "push(@a, bless({}, 'MyClass'))
   foreach (1..1000001); print(scalar(@a));"
1000001