while (<FILE>) {
    next if /^#/ or tr/\t// != 6;
    chomp;
    push @array, [ split "\t" ];
}