use Text::CSV_XS;

my $csv = Text::CSV_XS->new ({ sep_char = "\t" });
open my $io, "<", $file or die "$file: $!";
while (my $row = $csv->getline ($io)) {
    my @fields = @$row;
    ...
}