use strict;
use Text::CSV_XS;

my $tdf = Text::CSV_XS->new({'sep_char'=>"\t"});
open(TDF, "somedata.tdf") or die("b0rk - $!");
my @fields = ();
while($tdf->parse(scalar <TDF>)) {
    @fields = $tdf->fields();
    print "@fields\n";
}