Select Code to Download

#!/usr/bin/perl
use warnings;
...
        join("\0", @output) eq join("\0", @expect) or die "@output\n@e
+xpect" if TEST;
    }
});

               Rate       grep       hash hash_slice     splice
grep        65163/s         --       -42%       -45%       -89%
hash       112778/s        73%         --        -5%       -81%
hash_slice 118725/s        82%         5%         --       -80%
splice     580859/s       791%       415%       389%         --

    grep => sub {
        my %indices;
...
        ];
        join("\0", @output) eq join("\0", @expect) or die "@output\n@e
+xpect" if TEST;
    },

               Rate       hash hash_slice       grep     splice
hash       113323/s         --        -6%       -41%       -80%
hash_slice 120876/s         7%         --       -37%       -79%
grep       190934/s        68%        58%         --       -66%
splice     568237/s       401%       370%       198%         --