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