Select Code to Download

use strict;
use warnings;
use Benchmark qw(timethese);
...
    'walk once with sort' => \&discard_sort,
    'walk once manual insert' => \&discard_manual,
    'sort' => \&sort_strategy});

Benchmark: timing 5 iterations of sort, walk once manual insert, walk 
+once with sort...
sort: 60 wallclock secs (60.37 usr +  0.02 sys = 60.39 CPU) @  0.08/s 
+(n=5)
walk once manual insert:  3 wallclock secs ( 2.79 usr +  0.00 sys =  2
+.79 CPU) @  1.79/s (n=5)
walk once with sort:  3 wallclock secs ( 2.76 usr +  0.00 sys =  2.76 
+CPU) @  1.81/s (n=5)

Benchmark: timing 5 iterations of sort, walk once manual insert, walk 
+once with sort...
sort: 170 wallclock secs (169.96 usr +  0.03 sys = 169.99 CPU) @  0.03
+/s (n=5)
walk once manual insert:  7 wallclock secs ( 6.90 usr +  0.03 sys =  6
+.93 CPU) @  0.72/s (n=5)
walk once with sort:  7 wallclock secs ( 6.86 usr +  0.00 sys =  6.86 
+CPU) @  0.73/s (n=5)