Select Code to Download

#!/usr/bin/perl -w
use strict;
...
hash 33.8/s    --  -39%  -91%
set  55.2/s   63%    --  -86%
join  394/s 1064%  613%    --

sub match_arrays2{ # gmax
    my ($elem, $find) = @_;
...
join   394/s 1059%  682%    --    0%
join2  394/s 1059%  682%    0%    --

 _  _ _  _  
(_|| | |(_|><
 _|