use Text::CSV;
my $csv = Text::CSV->new({ sep_char = "\t" });
my $array_ref = $csv->getline_all($fh); # OR...
my @array  = @{ $csv->getline_all($fh) };