Select Code to Download

use Benchmark qw(:hireswallclock timethese);
timethese( 1000000,{
...
Benchmark: timing 1000000 iterations of one, two...
 one: 2.43888 wallclock secs ( 1.70 usr +  0.00 sys =  1.70 CPU) @ 588
+235.29/s (n=1000000)
 two: 5.11982 wallclock secs ( 2.77 usr +  0.00 sys =  2.77 CPU) @ 361
+010.83/s (n=1000000)

use Encode qw(_utf8_on);
$a = [['']];
...
__END__
1

use Encode qw(_utf8_on);
use Benchmark qw(:hireswallclock timethese);
...
Benchmark: timing 10000 iterations of Aristotle, liz...
 Aristotle: 4.37344 wallclock secs ( 3.73 usr + 0.00 sys = 3.73 CPU) @
+ 2680.97/s (n=10000)
 liz: 4.06957 wallclock secs ( 2.73 usr + 0.00 sys = 2.73 CPU) @ 3663.
+00/s (n=10000)