Select Code to Download

#! /usr/bin/perl
use warnings;
...
is(frst($needle), loop($needle), 'first == loop');
is(frst($needle), hash($needle), 'first == hash');
done_testing(2);

          Rate      frst      loop      hash
frst    19.6/s        --       -3%     -100%
loop    20.2/s        3%        --     -100%
hash 4074780/s 20814138% 20170060%        --