$ perl5.8.2-unthreaded -Mforks -MBenchmark::Thread::Size=times,1
(ref)  1 100
  #   (ref)                                                            
  0    3364    
  1    2836    
  2    2800    
  5    2800    
 10    2800    
 20    2800    
 50    2800    
100    2804