my $infile = "filename.dat";
my @records;
{
    open my $fh , "<", $infile or die "Can't open $infile!\n$!";
    my @records = map { chomp; [ split /\t/ ] } <$fh>;    
}
{
    local $" = "\t";
    print "@{$_}\n" foreach @records;    
}