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

>perl -le "push(@a, bless({}, 'MyClass'))
   foreach (1..1000001); print(scalar(@a));"
1000001