my @a;
while (<INFILE>) {
  my @line = split /\t/;
  push @a, \@line; # Array of array references
}

##</code><code>##

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