Select Code to Download

sub make_accessor
{
...
    };
    1;
}

sub make_accessor
{
...
    };
    1;
}

use Benchmark qw(cmpthese);
 
...
 
   *{$_[0]} = sub { $array[$index] = $_[0] };
}

Benchmark: running lexicals, no_lexic, each for at least 5 CPU seconds
+...
  lexicals:  5 wallclock secs ( 5.43 usr + -0.01 sys =  5.42 CPU) @ 70
+0151.48/s (n=3794821)
...
             Rate lexicals no_lexic
lexicals 700151/s       --      -2%
no_lexic 716662/s       2%       --