my @data;
open(DATA, $file) || die "Can't open $file: $!\n";
while (<DATA>) {
  push @data, [split /\t/];
}