Select Code to Download

sub using_index {
   our $seq; *seq = \$_[0];
...

   return @groups;
}

use strict;
use warnings;
...
      using_regexp => sub { my @groups = using_regexp $seq; 1; },
   });
}

               Rate  using_index using_regexp
using_index  2039/s           --         -63%
using_regexp 5467/s         168%           --