Select Code to Download

sub s_index{
 my $pos = 0;
...
 }
 $cnt{s_index}=$cnt;
}

my $_s_index = sub {
  my $pos = 0;
...
          _s_index  2000
            _m_for  6000
          _m_array  6000

Benchmark: timing 300 iterations of m_array, m_array_M, m_for, m_for_M
+, m_while, m_while_M, s_index, tr, while_re...
   m_array: 12 wallclock secs ( 5.04 usr +  0.04 sys =  5.08 CPU) @ 59
+.06/s (n=300)
...
          _s_index  6000
            _m_for  6000
          _m_array  6000