Help for this page

Select Code to Download

Select or download this

$ perl -MDevel::Peek -e'
   sub x {
...
  MAX = 127
  MAX = 127  <-- Preallocated even before C<< keys(%h) = 100; >>!
  MAX = 127

Select or download this

$ perl -MDevel::Peek -e'
   sub x {
...
  MAX = 127
  MAX = 7
  MAX = 127