my $csv = Text::CSV_XS->new({ sep_char => "\t", eol => "\n" });