--8<---
use strict;
use warnings;
use Benchmark qw(cmpthese);

my @data = ("aaaaaaaaaa") x 100;
my $line = join "\t" => @data;
my $data = join "\n" => map { $line } 0 .. 50000;

use Text::CSV_XS;
my $csv = Text::CSV_XS->new ({ sep_char => "\t", binary => 1, auto_diag => 1 });

sub bsplit
{
    open my $fh, "<", \$data;
    while (<$fh>) {
        chomp;
        my @aa = split /\t/ => $_;
        }
    } # bsplit

sub csvxs
{
    open my $fh, "<", \$data;
    my @aa = ("") x scalar @data;
    $csv->bind_columns (\(@aa));
    while ($csv->getline ($fh)) {
        }
    } # csvxs

cmpthese (10, {
    "split"	=> \&bsplit,
    "csv_xs"	=> \&csvxs,
    });
-->8---

=>

         Rate  split csv_xs
split  1.60/s     --   -27%
csv_xs 2.21/s    38%     --