open (FILE, "){ chomp($line); push @data, [split /\t/,$line]; } close(FILE);