use strict;
use warnings;

use Benchmark qw{cmpthese};

my $string = ' J00153:42:HC5NCBBXX:6:1101:10896:14959   99  gnl|Btau_4.6.1|chr16    72729218    1   12M';

cmpthese 1e7 => {
    limit_undef => sub { my ($id,) = split ' ', $string, 2 },
    nolim_undef => sub { my ($id,) = split ' ', $string },
    limit_array => sub { my ($id, @rest) = split ' ', $string, 2 },
    nolim_array => sub { my ($id, @rest) = split ' ', $string },
};
##</code><code>##

                 Rate nolim_array limit_array limit_undef nolim_undef
nolim_array  573888/s          --        -59%        -67%        -67%
limit_array 1396453/s        143%          --        -20%        -21%
limit_undef 1746725/s        204%         25%          --         -1%
nolim_undef 1760873/s        207%         26%          1%          --