Select Code to Download

use strict;
use Benchmark qw(cmpthese);
...
             },
         }
        );

$ perl y
             Rate backward  forward
...
             Rate backward  forward
backward 234216/s       --      -9%
forward  256000/s       9%       --

use strict;
...
             },
         }
        );

$ perl y
            Rate backward  forward
...
            Rate backward  forward
backward 44799/s       --      -3%
forward  46089/s       3%       --