use Text::CSV_XS;
$csv = Text::CSV_XS->new( sep_char => "\t");
$columns_ref = $csv->getline($io);