Select Code to Download

use Modern::Perl;
use Benchmark qw(cmpthese);
...
        splitSome => sub { splitSome() }
    }
);

            Rate  splitAll splitSome
splitAll  19.8/s        --      -21%
splitSome 25.1/s       27%        --