my @a;
push @a, ( split /\t/ ) while (<INFILE>); # array of arrays