Select Code to Download

use warnings;
use strict;
use Benchmark qw/cmpthese/;
...
    join("\0", sort @output) eq join("\0", sort @expect) or die if TES
+T;
  },
});

C:\Projets\perl>perl pm_select_11123879.pm
          Rate   grep   swap splice
grep   14287/s     --   -73%   -73%
swap   52519/s   268%     --    -0%
splice 52549/s   268%     0%     --